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This publication provides 
how to use APL/CMS, differences 
APL/CMS and APL\360, and the 


processors available with APL/CMSe 


This manual has the following sections 


and two appendixes: 
@® Section 1 is the introduction to 
APL/CMS-e 


@® Section 2 describes APL under CMS, the 
virtual machine concept, logging on to 
VM/370, related CP, CMS, and APL 
commands, how APL uses virtual storage, 
how to save and copy workspaces, and 
common error situations and what to do 
about theme 


@® Section 3 describes how APL/CNS differs 
from APL\360 in terms of keyboard I/0 
operations, error handling, function 
definition, primitive functions, and APL 
commandse 


© Section 4 describes new functions not 
available with APL\360: new primitive 
functions, new system functions and 
system variables and shared variables. 

@® Section 5 describes CMS facilities for 

the APL/CMS user 


© Section 6 describes the auxiliary 
processors that allow APL programs’ to 
request certain CMS services: 


--AP100 the Command Processor that 
passes commands to CMS and CPe 

--AP101 the Stack Input Processor that 
stores and supplies input entries for 
use by CMS or APL/CMS-e 

~-AP110 the CMS Disk I/0 Processor that 
provides sequential and random access 
to CMS files. 

--AP111 the FILEDEF I/O Processor that 
provides sequential access, via QSAM, 
to any I/O device supported via 
FILEDEF. This includes readers, 
punches, printers, and reat OS disks 
(in read/only mode). 


trans lation 
processor 


describe 
auxiliary 


® Appendixes that 
table options and 
return codeSe 


PREFACE 


The APL/CMS system combines the 
programming features of APL and the virtual 
machine facility of VM/370- Several 
subsets of the system can be definede One 
can learn a subset of the system, use it to 
solve problems, and go on to learn more 
advanced features as the need arisese The 
study and the use of APL/CMS is as follows: 


1. Read Sections 1 and 2 in this manual. 


If unfamiliar with APL, one should 
read the APL\360 User's Manual. 

2e Read Section 3 and Section 4 through 
"System Functions and System 


Variables" of this manual. Try making 


use of these featurese 


Be Read the remainder of this manual. 
Try using the shared variable facility 
and the APL/CMS auxiliary processorse 
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APL/CMS usere 
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IBM Virtual Machine Facility/370: 
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SECTION 1: INTRODUCTION 


APL/CMS is an APL system that runs under CMS (Conversational Monitor 
System), a component of VM/370 (IBM Virtual Machine Facility/370)- It 
provides the facilities of APL\360 together with language enhancements 
introduced by APLSV (the APL Shared Variable System). 


The APL language and system commands used in APL/CMS are 
fundamentally the same as described in the APL\360 User's Manuale The 
reader must be familiar with that documente Minor differences are noted 
herein being mainly in the areas of system commands, primitive 
functions, function definition, error handling, and keyboard entry and 
output. Major differences are listed belowe 


Shared Variables: The addition of a shared variable facility which 
provides a simple and effective way of working with CMS disk files, 
magnetic tape files, and other high speed input and output devices. The 
facility is managed by dynamically executable system functions. 


Large Workspaces: The use of virtual memory which allows the workspace 
size to vary from user to user up to a maximum of 16,400,000 bytes. 


High Performance: A new implementation designed for rapid execution of 
the APL lLanguagee An APL Assist feature is available for the System/370 
Model 145 to provide a further increase in execution speede 


Auxiliary Processors: Four auxiliary processors designed to give the APL 
user a convenient way to use the powerful facilities of VM/370 through 
the medium of shared variables. 


Shared System: APL/CMS utilizes the feature of VM/370 which allows one 
copy of the system to service many independently operating APL/CMS 
virtual machinese 


Scan: A new operator is provided for efficient representation and 
execution of algorithms which otherwise require iteratione 


Execute and Format: Efficient conversion between character arrays and 
numerical arrays is provided by these new primitive functionse 


Canonical Representation: System functions are provided to convert 
between defined functions and their representation as character 
matrixese 


System Variables: These specially treated shared variables communicate 
with the APL system to control parameters such as the index origin and 
to provide information such as the time of daye 


Latent Expression: This system variable is automatically executed when a 
workspace is loadede 
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SECTION 2: USING APL UNDER CMS 


THE VIRTUAL MACHINE 


VM/370 is a system that manages the resources of a single computer so 
that many different computing systems, called virtual machines, appear 
to exist. Each virtual machine appears to have a system console, a CPU, 
storage and input/output devicese It is not necessary to understand the 
implications of these terms, but you may want to know, for example; that 
the storage size of the virtual machine affects the size of an APL/CMS 
workspacee 


To use APL/CMS, you need access toa virtual machines Usually, your 
VM/370 system operations group can prepare a virtual machine for your 
use and tell you the name (called the userid) of the machine anda 
password that controls access to ite 


VM/370 maintains a directory of all the virtual machines that share 
the resources of the real computer. The directory contains the userid, 
password, accounting information, normal size of virtual memory, maximum 
size of virtual memory, and a list of I/O devices, of varying 
properties, identified by numberse Some of the properties of the 
machine can be changed during a terminal session (for example, 
increaSing the size of the virtual storage up to the limit specified in 
the VM/370 directory).- 


Each user of APL/CMS must have access to a virtual machine. When the 
user logs on, VM/370 looks up the directory entry and supplies a virtual 
machine with the appropriate propertiese Typically, a virtual machine 
has a console (for example, an IBM 2741), a CPU, storage, one or mdr e 
virtual disks, a virtual card reader, punch, and line printere A 
virtual disk is a part of the space on a disk device (for example, five 
cylinders on an IBM 3330)- 


ESTABLISHING A CONNECTION TO VN/370 


Consult with your system operations group for the location and 
properties of the terminals you can use, and to find out how to 
establish a connectione The APL\360 User's Manual describes some of the 
terminals used for APLe In this manual, an IBM 2741 is assumede The 
terminal has two type elements: one used for VM/370 and one used for 
APLe Install the VM/370 type element, and establish a connectione The 
terminal will type a response that will include VM/370 ONLINE or 
RESTART. If the keyboard is locked, press the attention keye Type 
LOGON followed by your userid (the name of your virtual machine) 
followed by M (short for MASK). 


Logon smith m 
would be used by someone with the user identification SMITHe You may 
enter Lowercase letters, as shown in the examplee The machine will 
usually reply in uppercase letterse Typing the m causes VM/370 to print 


a mask string to conceal your passworde The machine response is: 


ENTER PASSWORD: 
a 299 SSSR 
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Enter your password on top of the printed mask stringe The machine then 
prints the time and date, and any information that the operator wants 
you to know about.e If you have problems logging on, contact your system 
administrator, or check the VM/370: Terminal User's Guide for guidance 
on what to doe 


VM/370 has two major componentse The first component is CP, which is 
the control programe It manages the real resources of the installation 
to provide independent virtual resources, in the form of virtual 
machines, for its users CMS (the Conversational Monitor System) is an 
interactive monitor system that runs under CP and offers user-oriented 
features which control the virtual machinee 


All programs running on a VM/370 system are under control of CP; they 
may or may not use CMSe APL/CMS is a system that provides the APL 
Language using the facilities of CMS and CP under VM/370- 


LOADING APL/CMS 


ee i Amen SS ee 


After your password is accepted, the introductory message is printed, 
the keyboard is unlocked and CP waits for you to enter a CP commande 
Now enter the command which causes CP to load the APL systeme This is 
done in one of two ways, depending on how your system operations group 
has set up the APL systeme 


The first method is to install the APL type element and type 
IPL APL 
IPL stands for initial program loade This command initiates the Loading 


of the APL/CMS systeme The machine responds: 


APL/CMHS 


CLEAR WS 


When the keyboard unlocks, you can begin to enter APL statements and 
commandse If the machine responds 


[tl~e| a*C LOef TO~ e>t[~ 


This message is SYSTEM APL DOES NOT EXIST with the VM/370 type element. 
You should verify that APL is the name assigned to APL/CMS at your 
installatione 


The second method of invoking APL/CMS is to enter 


ipl cms 
apl 


You will then be asked to install the APL type element and press the 
return keye The system responds as described in the previous 
paragraphe You can now use the system in the same way as an APL\360 
systeme You can log off the system by typing the APL command )OFF. The 
following is an example of a short session at the terminal. 
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d*x38z irvyr; vm/370 online 


tl smith mo 

ENTER PASSWORD: 

€ BS Saas 

LOGON AT 18:01:18 PDT TUESDAY 03/19/74 
ipl apl 


APL/CMS 


CLEAR WS 

2+2 
4 

2x3 
6 

342 
1.5 

) OFF 


CONNECT= 00:08:45 VIRTCPU= 000:00-66 TOTCPU= 000:02-20 
LOGOFF AT 18:10:03 PDT TUESDAY 03/19/74 


CP, CMS, AND APL COMMANDS 


Some of the messages that you enter at the terminal will be treated as 
commandse The kind of command that can be used at any time depends on 
the current environment. There are three environments: CP, CMS, and 
APLe When you first log on, you are in a CP environmente If you IPL 
CMS, then you are in the CMS environmente [If you IPL APL (or enter ‘apl'* 
when in the CMS environment), then you go to the APL environmente A 
summary of the way the environment changes is: 


To go from To Enter 

Not Logged on CP logon 

CP APL* ipl apl 

CP CMS* ipl cms 
CMS APL* ipl apl 
CMS APL apl 

APL Logged off ) OFF 

APL CMS )OFF HOLDT 
APL CP )OFF HOLDTt 
CMS Logged off logoff 

CP Logged off logoff 

CMS CP CP 


*Note that IPL APL and IPL CMS are not available in some installationse 
TYou return to CP if you invoked APL by an IPLe 


When you are in 


CMS commands; if they are not recognized 
treated as CP commandse 


treated as APL 


the CP environment, all 
commandse When you are in the CMS environment, input data is treated as 
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When in the 
statements 
commands, nor does APL obey CP or 


input data is treated as CP 


as CMS commands, then they are 
APL environment, all input data is 
or commandse 


CMS does not accept APL 


CMS commandse 


J 


If you have made a typing error while entering a CP or CMS command, 
then you have a chance to correct the error if you have not yet pressed 
the return keye Entering ¢€ causes the machine to ignore everything to 
the left of the @.- Entering @® causes’ the previous character to be 
ignored; entering 020 causes the two previous characters to be ignored, 
and so one For example, 


ipx ag ipl cms 
iq@pl cms 
ipl dmd@dacms 


all have the same effect as if “ipl cms" had been typed without any 
errorse If you make an error and fail to correct it, then you must wait 
until CP or CMS has processed it; typically, the result is an error 
message indicating an unknown command, the keyboard unlocks, and you can 
try againe (The ® and ¢ are the characters ~— and > of the 987 APL type 
element and <« and > of the 988 APL type elemente) These VM/370 logical 
line edit characters can not be used white in the APL environment. 


When a CMS command has finished execution, it responds as follows: 
R; T=nenn/xexx hhemmess 


This is called a Ready messagee nenn and xexx are the virtual and real 
CPU times (in seconds and hundredths of seconds)e hhemmess is the time 
of day (hours, minutes, and seconds) e If an error has occurred, then 
the ready message (R;) is replaced by R(nnnnn) where nnnnn is an error 
code; in most cases an explanatory message appears on a previous lLinee 


USE OF VIRTUAL STORAGE 


An APL program uses an area of storage called a workspacee The 
workspace contains user defined functions and data, some space’ for 
system tables, and a work areae AS new functions and data are defined, 
the space they need is taken from the work areae The amount of work 
area can be determined by the APL system variable 


CWA (122 ON APL\360) An a ee 


eae 1 eur Tia 


area ee eee: enn a 
In an APL\360 system, the size of the workspace is fixed when the system 


is generated and all users have the same workspace sizee In APL/CMS the 
size of the workspace is determined dynamically when you load APLe 
After space is allocated for the system and for input/output areas, the 
rest of virtual storage is allocated to the workspace. Subsequently, 
when loading a workspace, its work area is adjusted accordinglye 


The space used by APL/CMS varies from installation to installation, 
but a typical figure is about 340,000 bytes, not including the 
work spacee The size of your virtual storage is determined by an entry 
in your VM/370 directorye When in the CP or CMS environment, you can 
find out what the size is by entering the command: 


query storage a 
The reply may be in units of K (for kilo or 1024) bytes or M (for mega 
or 1,048,576) bytese If the reply is, for example, 512K then the work 
area in the workspace is approximately 170,000 bhbytese As you become 
familiar with APL, you should be able to relate the workspace size to 


the kinds of APL programs you can rune The maximum virtual storage 
allowed by VM is 16M bytese The maximum work area under APL/CMS is 
about 16,400,000 bytese a 


= 
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peer 


SAVING AND RESTORING WORKSPACES 


CMS refers to virtual disks by one of the letters A through G, S, Y, and 
Ze The distributed version of APL/CMS uses the following disks: 


——- User's private Library 

Temporary space used during )COPY and )PCOPY, for example 
—- Libraries 1000 through 999999 (read/write access) 

——- Libraries 1 through 999 (read-only access) 


NQ 0 Ye 
{ 
I 


The A-disk and D-disk belong to your virtual machine, and normally 
only your machine has access to theme The other disks belong to another 
virtual machine which every APL/CMS user can acceSSe The APL )SAVE 
command stores a workspace on the A-diske A library number causes the 


public library to be accessede A workspace cannot be saved in a 
read-only lLibrarye The read-only library is usually maintained by the 
APL system lLibrariane Everyone has access to the read/write public 


library if one existse 


Under APL\360 the user's account number identifies the user's private 


library to other userse Under APL/CMS, each private library is 
maintained on the user's A-diske Users cannot directly access another 
user's private lLibrarye Numerous methods exist for transferring 


workspaces between users in a secure mannere 


APL/CMS sets no limit on the number of workspaces that can be stored 
in the private library; the Limit depends upon the total amount of disk 
space availablee If insufficient space is available to perform a )SAVE, 
then a disk full error occurse You can make room with the § )DROP 
commande Section 5 contains an explanation as to how you can find the 
amount of disk space used by each workspacee 


If the read/write public library (G- disk) is full, consult the 
APL/CMS systems’ staff at your installatione If the message DISK NOT 
AVAILABLE appears when attempting to save a workspace in the public 
libraries, try it again ina few seconds as another user was probably 
accessing that diske 


ERRORS 


APL/CMS fundamentally is Like APL\360 in its handling of errorse Most 
of the error messages are the standard APL\360 error reportse You may 
also get the types of errors discussed in this sectione 


NOT IN CP DIRECTORY 
This message will be received when attempting to logon when you are 


not an authorized usere It may also appear if you made a typing 
error, or if there was Line noise creating a probleme 


PASSWORD INCORRECT 
See the installation manager to find out your correct passworde 


Unlike APL\360, you cannot directly respecify your passworde 
Typing errors or Line noise may cause this message to appeare 
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DMSACC112S DISK A(191)* DEVICE ERROR 


This message occurs when your disk is not in the proper CMS format 
and must be formatted using the CMS FORMAT command. Unless this is 
done, APL/CMS does not have the capability to access your private 
Llibrarye 


SYSTEM APL DOES NOT EXIST 
This message is an indication that your installation has generated 


APL/CMS under a different name or that APL/CMS is available only 
from the CMS environmente 


CP (keyboard unlocks) 


The letters CP are typed as the result of telephone-Line noise or 
importunate use of the attention keye Type the word BEGIN (8B for 
short) and press the return keye If you are attempting to generate 
a double attention, type EXT and press the return keye 


COMMAND COMPLETE eee CLEAR WS 


This message (ellipsis indicates several lines of print) may be 
caused by an error in APL/CMSe Report the occurrence(s) to the 
system operations groupe You can continue to work with APL, but 
your active workspace has been replaced by a clear workspacee 


CP ENTERED, REQUEST PLEASEe 
This message indicates that you are in the CP environment and must 
reload APL/CMS-e 

RESTART 

Sag ae 

VM/370 ONLINE 
Either message indicates that VM/370 thas been restartede You must 


Logon to the system and reload APL/CMS.e Your active workspace has 
been loste 


communication tine loss 


You may lose the active workspace because of an abnormal disconnect 
of the telephone connection to VM/370.- A 15-minute time period is 
provided to allow you to reestablish the communication line and 
logon againe For the method of resuming APL execution refer to 
Section 3 under the heading "The CONTINUE Workspace", 
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SECTION 2: GENERAL SYSTEM CHANGES 


J 


This section describes how APL/CMS differs from APL\360-. Differences 
are grouped in terms of keyboard I/O operations, error handling, 
function definition, primitive functions and system commandse This 
section is based upon the APLSV User's Manual. 


CHANGES IN KEYBOARD ENTRY AND OUTPUT 


DOUBLE ATTENTION 


Generating a double attention under APL/CMS requires a fine touch as CP 
monitors attentions for possible entry to that environment. Pressing 
the attention key twice with deliberate speed should suffice. If the 
characters CP are typed, indicating entry to the CP environment, simply 
type EXT; the effect is the same as a properly executed double 
attentione 


If you are in the CP environment and do not wish to generate a double 
attention, type BEGIN. 


| 
INPUT LINE LIMITATION J 


The maximum number of keystrokes which can be entered, excluding the 
terminal carriage return, is 130-6 If the entry is interrupted by the 
attention key, causing a caret to appear, then the keystroke count is 
begun againe Since input of this form appends to the line already 
entered, it is possible to enter more than 130 keystrokes)’ by striking 
the attention on every group of 130 or less, the final group being 
terminated by the carriage returne The system Limitation for input of 
this form is 762 keystrokes, including one character for each attention 
and carriage returne These input keystrokes must produce less than 380 
APL characterse 


OPEN QUOTE 


All keyboard entries are terminated by a carriage returne A keyboard 
entry containing an open quote will invoke no special system treatmente 
It will produce a SYNTAX error report, as will an entry with unbalanced 
parenthesese 


CHARACTER ERRORS 


If character errors occur in an input Line, a CHARACTER ERROR report is > 
issued; the entry is then typed up to the first such error, at which 
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point the keyboard unlocks to allow further entry as if the printed line 
had been entered from the keyboarde Note that the carriage return 
(except to terminate a keyboard entry) and the horizontal tabulate are 
invalid input characterse The terminal control characters backspace, 
horizontal tabulate, idle, lLinefeed, and new Line are available asa 
five element character vector, QUADTC, in the workspace 1 SPECIAL. 


COMMANDS DURING FUNCTION DEFINITION 


During function definition, every keyboard entry beginning with a left 
bracket (supplied by the system for convenience) is treated as an EDIT 
or INPUT requeste APL/CMS reports some errors (for example, SYNTAX and 
RANGE errors) on input but the entry is acceptede 


A keyboard entry that does not begin with a left bracket is treated 
as an immediate execution entrye To produce an entry of this form, 
backspace and use the attention key to erase the beginning of the line 
provided by the systeme 


The following statements apply to immediate execution when in 
function definition mode: 


© If a workspace is saved during function definition, then a subsequent 
Loading of the workspace resumes the function definition at the point 
when the save command was givene 


@® If the function in edit is copied from a saved workspace, it will be 
copied in closed forme 


@® Any attempt to enter or leave function definition results in the 
message DEFN ERROR. 


@ Any action causing an explicit or implicit erasure of the function 
being edited terminates function definition mode. 


ESCAPE FROM LITERAL INPUT 


Overstruck O U T interrupts execution but no longer causes an exit from 
the functione 


EXTENDED PRINT WIDTH 


The maximum printing width (as set by the WIDTH command and other 
facilities) can be set to 254 characters. 


BARE OUTPUT 


Normal output includes a concluding carriage return so that the 
succeeding entry (either input or output) will begin at a standard 
position on the following Line. Bare output, denoted by expressions of 
the form [}+xX, does not include this carriage return if it is followed 
either by another bare output or by a character input (of the form X<-M). 
Character input following a bare output is treated as if the user had 
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spaced over to the position occupied at the conclusion of the bare 
outpute For example: 


VF 
C1] Me-"TRUE OR FALSE: THE SQUARE OF * 
C2] N<-?4 


[3] ret TS ¢ 
[4] H-(¥(P?4)%*2),° 8 
(5] X-+F V 


F 
TRUE OR FALSE: THE SQUARE OF 1 IS 16 FALSE 
Xx 
FALSE 


If the length of any single output string is more than the printing 
width then the carriage returns normally occasioned by the page width 
setting are insertede 


Because any expression of the form eX entered at the keyboard 
(rather than being executed within a defined function) is necessarily 
followed by another keyboard entry, it is concluded by a carriage return 
and its effect is indistinguishable from the effect of the corresponding 
normal outpute 


HETEROGENEOUS OUTPUT 


Parentheses surrounding a heterogeneous output statement are no longer 
permittede They can be systematically removed from any unlocked 
function by user-defined editing functions, employing the dynamic 
function definition capability provided by the functions [I'CR and ({)FX 
described in Section 4e 


The facility for heterogeneous output does not represent a proper APL 
function; in particular, its result cannot be assigned a namee It was 
introduced in APL\360 to obviate awkward conversions of numbers’ to 
Character representationse The format function described in Section 4 
now provides such conversionse The user is advised to avoid the use of 
the heterogeneous output facilitye 


CHANGES IN ERROR HANDLING 


DEPTH ERROR 


These errors do not occure The STACK FULL error, described below, 
describes a related system Limitatione 


STACK FULL ERROR 


A portion of workspace storage, called the stack, is used to hold APL 
expressions during the execution of an APL statement, and to hold status 
information during the execution of a user-defined functione If the 
fixed space allocated to the stack has been used, a STACK FULL error 
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message is typede For corrective action, use )SI to display the state 
indicatore Clear the stack hy repeated use of the ‘'-f keye To change 
the Size of this area, use the )STACK command as described in the 
Section 3 under the heading "Changes in System Commands" 


STACK DAMAGE 


The error report SI DAMAGE ENCOUNTERED is issued when execution can 
proceed no further because of damage to the execution stacke This may 
be caused by erasure of a pendent function, for example. 


Generally, APL/CMS prints the report SI DAMAGED when damage occurs; 
however subsequent action can repair such damagee A good example is the 
damage which occurs when a suspended function is editede The stack is 
always damaged during the function editing process and is. normally 
restored to a proper condition upon termination of the editinge 


ERRORS IN LOCKED FUNCTIONS 


A locked function is treated essentially as primitive and its execution 
can invoke only a DOMAIN error, although conditions (such as WS FULL or 
RANGE error) arising from system Limitations will also be reported. 
Moreover, execution of a locked function is terminated by any error 
occurring within it, or by a double attentione 


RANGE ERROR 


If an arithmetic result falls outside the range of numbers’) allowed by 
the system, then a RANGE error is givene For example, an attempt to 
evaluate 2*250 causes a RANGE errore An attempt to divide zero by 
itself also produces a RANGE errore 


RESULT OF DEFINED FUNCTION 


If the function header specifies that a defined function has a result, 
then failure to assign a value to the result will Lead to a VALUE ERROR 
report on exit from the function. 


CHANGES IN FUNCTION DEFINITION 


crete GA 


IMMEDIATE MODIFICATION 


An entry of the form [N~—M] while in function definition mode now invokes 
the following special action for the case when M is zero: line N is 
displayed with the carrier resting at the end of the line, as if the 
Line had just been entered from the keyboard. At this point, the line 
can be extended, or modified by backspace and attention, in the usual 
manner e 
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PRINT WIDTH LIMITATION 


A tine will not be extended beyond the printing width during the 
insertion of blankse A line longer than the printing width cannot be 
directly edited. It may be possible to edit the line by setting [PW to 
its maximum valuee Alternatively, a line of this type can be changed by 
use of the system function [CR to obtain a character representation of 
the function, modification of the resulting character matrix, and 
definition of the function by use of the system function (FXe 


LINE DELETION 


A line of a function is deleted by entering a Left bracket, a not 
symbol, the Line number and a right bracket. For example: 


{(39] [~4] 
{ 4] [~5] 
[5] 


will delete statements 4 and 5. In the above example the [99], [4], and 
{5] were supplied by APL and the other characters were entered by the 
usere The attention signal cannot be used to delete a linee 


STOP AND TRACE 


The stop and trace vectors associated with a function are nullified when 
the definition of that function is editede 


STACK DAMAGE 


The stack is always damaged when a suspended or pendent function is 
being editede This damage is normally repaired when the function 
definition is closede Resumption of the suspended function will produce 
a SI DAMAGE ENCOUNTERED report if the damage is still presente 


LINE DISPLAY 


Lines of a function which have been modified or added are not put into 
canonical form until the function definition is closed. For example, 
extra spaces are not removed until the function is closede 


STOP AND TRACE IN LOCKED FUNCTIONS 


Settings of stop and trace are automatically nullified when a function 
definition is lockede 
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Cc 


FUNCTION HEADER 


A function header which contains more than one occurdace of the same 
name is rejected and the report DEFN ERROR is givene 


COMMENTS 


Comments can be placed on the same Line as executable codee Characters 
to the right of the leftmost lamp character (a), which is not ina 
quoted string, are saved as part of the statement but are not executede 


Comments, on Lines by themselves, are exdented, Like Labels, during 
function displaye 


LABELS 
a ae 


a 


Names used as Labels within a function are active only when that 
function is being executed or is suspended and during those times, 


y 
ai 


labels act as read-only local variables. At other times, when the 
function is pendent, and within any other defined function, these names 
are unencumbered by their use as lLabelse . “ 


CHANGES IN PRIMITIVE FUNCTIONS 


MONADIC TRANSPOSE 


The monadic transpose now reverses the order of all coordinates rather 
than interchanging only the Last twoe Formally, it is defined in terms 
of the dyadic transpose as follows: 


RA =~ ($2 ppA)QXA 


With this change the identity 
Mt+exXN <7 Q(QN) +. xQM 


which held for matrixes M and N now holds’ for  higher-dimensional 
arraySe Indeed, the corresponding identity holds for any inner product 
fegzg if g is commutative. 


RESIDUE 


The residue function was previously defined to depend only on the 
absolute value of its left argumente It is now defined as follows: 


1e If A=0 then A|B is equal to Be 


Ze If A#O then A|B Lies between A and zero (being permitted to equal 
zero but not A) and is equal to B-NxA for some integer Ne ee 


Pal 
( ae oe ; 
ed , f 
V 
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For example: 


0-004 


Ae3 0 3 


Ao.|B 

2 0 1 2 
“4 °3 2°41 
“1 0°21 
X+21.824 
eO01|X 


2 


~-1012345 6 


The new definition of residue can be stated formally as follows: 


A|B +> B-Ax|BtA+A=0 


ENCODE 


The definition of the encode function T is based on the residue function 


in the manner 


scalar B: 


V 
[1] 
[2] 
C3] 
{4] 
{5] 
[6] 
[7] 
C8] 

V 


The definition of the encode function 
negative elements is 


or more 


Z-A E B 
Z-OxA 
I+-pA 


L:~(I1=0)/0 


Z(IJ<ALI)|B 
~(ACLIJ=0)/0 


B-(B-Z(1I))tAlLT] 


I+I-1 
—~L 


definition of residuee 


GENERALIZED MATRIX PRODUCT AND MATRIX DIVIDE 


2 2 2713 


2° 2 °2713 


20 2T13 


specified by 


the following 


22 2T 13 
011 

“2 ~2 ~2T5 
“1 "1°21 

“22 °+2T5 
o1 i641 


function for 


vector A 


The domain of the F function described in the APL\ 360 User's Manual, 


been extended 
section defines the 
discussion of the function and its potential applications. 
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slightly to 


extensions, 


include vector 


and scalar 
and also provides 


argumentse 
a more comprehensive 


and 


for a left argument having one 
therefore affected by the change in 
For example: 


the 


has 


This 


The domino (fF) represents two functions which are useful in a variety 
of problems including the solution of systems of linear equations, 
determining the projection of a vector on the subspace spanned by the 
columns of a matrix, and determining the coefficients of a polynomial 
that best fits a set of points in the least-squares sense. 


When applied to a nonsingular matrix A the expression [FA (monadic) 
yields the inverse of Ay, and the expression X«BRA (dyadic) yields a 
value of X which satisfies the relation A/,B=At+texX and is therefore the 
solution of the system of Linear equations conventionally represented as 
Ax=be In the following examples the floor function is used only to 
obtain a compact display: 


A*+(24)90.2>244 


A LfFA | A+ exfHA 
1000 1 oO O @Q 1 O 9O QO 
1100 “1 1 0 90 Oo 1 0 90 
1110 0-1 1 =O 0 0 1 QO 
1111 0 oo 1 1 0 0 9O 1 
Bel 3 6 10 
X*B/FA 
B X At+exX (HA) +-xB 
13 6 10 123 4 13 610 123 4 
C+4 291 235 69 10 14 
Y*-CEA 
C LY LAtexY L (FFA) +-xC 
1 2 1 2 1 2 1 2 
3 5 2 3 3 5 2 3 
6 9 3 4 6 9 3 4 
10 14 4 5 10 14 4 5 


The final example given shows that if the left argument is a matrix 
C; then CHA yields a solution of the system of equations for each column 
of Ce 


If Ais nonsingular and if I is an identity matrix of the same 
dimension then the matrix inverse JA is equivalent to the matrix divide 
IffAe More generally, for any matrix P the expression FP is equivalent 
to the expression 


((eR)oOe=2R) EP 


where R is the number of rows in Pe 
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The domino functions apply more generally to singular and nonsquare 
matrixes, and to vectors and scalars; any argument of rank greater than 
2 is rejected (RANK ERROR) -e For matrix arguments A and B the expression 
X-BHA is executed only if 


1e A and B have the same number of rows, and 
Ze the columns of A are linearly independente 
If the expression X«BIFA is executable, then pX is equal to 
(11 pA),11bpB 
and X is determined so as to minimize the value of the expression 


+/y (B-—-AtexX)*2 


The domino functions apply to vector and scalar arguments as follows: 
except that the shape of the result is determined as specified above, a 
vector is treated as a one-column matrix (since a one-rowed matrix of 
more than one column would be rejected by condition 2 above) and a 
scalar is treated as a one-by-one matrixe In the case of scalar 
arguments X and /Yvy the expression XAYis equivalent to xXt#Y and the 
expression FFY is equivalent to tYe 


The APLSV User's Manual contains several more examples which may be 


of interest to the reader familiar with problems of polynomial fitting 
and of geometrye 


SUBSCRIPTED SPECIFICATION 


In an expression such as, 
RL Pj+Q 
Sie ee 
R{LS;T1<Q 


APL/CMS requires the shape of the array subscript, pP or (pS),pT to be 
the same as the shape of Q untess Q is a scalar or one-element array. 


COMPRESS AND EXPAND 


As stated in the APL\360 User's Manual, a scalar right argument of 
compress and expand is not extended automatically if required by the 
left argumente A multiple condition branch may be coded: 


~(V/C1,C2, eee CN) /LABEL 
One Element Arrays: One-element arrays are acceptable as the Left 
argument of take, drop, and reshape, the right argument of take and 


drop, and as the coordinate indicator for subscripted operators and 
functionse 


20 APL/CMS User's Manual 


Enclosed Specification: Enclosing a specification statement within 
parentheses causes an explicit result to be producede This result will 
be printed if it is leftmost on the lLinee 


CHANGES IN SYSTEM COMMANDS 


COMMUNICATION COMMANDS 


There are occasions when a user may wish to be undisturbed by messages 
arriving from another terminal. The command )MSG OFF blocks alt 
messages from other terminals and the command )MSG ON restores’ the 
acceptance of messageSe The commands )OPR and )MSG do not’ lock the 
keyboard; under APL/CMS they have the same effect as )OPRN and )MSGNe 
The )MSG command must specify the userid of the virtual machine to 
receive the messagee 


THE ERASE COMMAND 


The ERASE command now acts on any global object, and no tlonger 
distinguishes between pendent functions and otherse Problems that may 
possibly arise from erasing a pendent function are forestalled by the 
response SI DAMAGE, which advises the user to take appropriate action 
before resuming executione If execution is resumed and SI damage is 
encountered, an SI DAMAGE ENCOUNTERED report is given and the SI is 
reducede 


THE SYMBOLS COMMAND 


The command )SYMBOLS without a number prints the current number of names 
accommodatede The number of symbols can be set in a clear workspace by 
the command )SYMBOLS Ne The minimum number of symbols allowed is 506¢ 
Once a name is used, it occupies space in the symbol table even if 
erasede Copying a workspace into a clear workspace will minimize the 
number of occupied spaces in the symbol table. 


THE STACK COMMAND 


A portion of workspace storage, called the stack, is used to hold APL 
expressions during the execution of an APL statement, and to hold status 
indication during the execution of a user defined functione The amount 
of space allocated to the stack may be changed in a clear workspace by 
the command )STACK Ne When a clear workspace is loaded; N has the value 
512. 


WORKSPACE IDENTIFICATION 


The command )WSID can be used to set a lock as well as’ the workspace 
name, using the same form as the )SAVE commande Used as an inquiry, 
IWSID returns only the workspace identificatione 


Section 3: General System Changes 21 


Note: APL/CMS supports a maximum of eight characters as the workspace 
identificatione If more than eight characters are used to save, Load, 
or copy a workspace, a WS NAME IS TOO LONG report is givene 


LOCAL FUNCTION NAMES 


As a result of the introduction of the system function [FX (defined in 
Section 4), Local names may now refer to functions as well as 
variablese 


THE CONTINUE WORKSPACE 


If a workspace named CONTINUE exists and does not have a lock, it is 
Loaded when APL/CMS is invokede 


If the machine loses a connection with a terminal, then the active 
workspace is not savede However, VM/370 provides a grace period of 
about 15 minutes for the user to establish a new connection and logon on 
to the systeme Once reconnected, type: 


term apl on attn off Linesize 130 mode vm 
begin 


to resume APL executione 
APL/CMS can be run normally ina disconnected state for long jobs 
which do not require a terminal. A function in 1 APFNS' provides this 


capabilitye The example shown in Section 6 for auxiliary processor 101 
demonstrates a way to checkpoint a workspace by use of an APL functione 
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SECTION 4: NEW LANGUAGE FEATURES 


This section describes the new primitive functions, system functions, 
and system variables introduced by the APLSV system and available in 
APL/CMSe. This section is based upon the APLSV User's Manuale 


NEW PRIMITIVE FUNCTIONS 


SCAN 


For any dyadic function a@ and any vector X, the a-scan of X (denoted by 
a\X) yields a result R of the same shape as X such that R[II] is equal to 
a/ItXe For example: : 


+\1 23 4 5 6 
13 61015 21 
peXe0 ge ie / kee: 
0 /' 


Par = F ad 
me ? tos ‘fi os 


The scan is extended to any array as follows: if Rea\[IJA, then pR 
equals pA and the vectors along the Ith coordinate of R are the a-scans 
over the vectors along the Ith coordinate of A; scan applied to a 
scalar yields the scalar unchanged. 


The following examples show some interesting uses of the scan: 


L-0 010101 
L 

00103101 
~L 

1101041 0 
VAL 

0012141141 i4421 ALL 11'S FOLLOWING THE FIRST 1 
A\ew«L 

1100000 ALL O'S FOLLOWING THE FIRST QO 
<AXL 

001000 0 REMOVE ALL 1'*S FOLLOWING THE FIRST 


m | NH 
_ 
oO] U1 
No ~] 


A/X=1\X 1°*S INDICATE ROWS OF X 

100 WHICH ARE IN ASCENDING ORDER 
#\e5 

13 610 15 TRIANGULAR NUMBERS 
x*\E5 

126 24 120 FACTORIALS 


For any associative function,a the following definition of Rea\X is 
formally equivalent to the definition RII J=a/I tx: 


RL1J=x(1] 
RUIJ=RUI-1]a@X(IJ) FOR Teitlepx 
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This definition requires only ~1+pX applications of a@ (as compared to 
o5x( pX)x 1+pX), and is the one actually used for associative functions. 
Because of the finite precision used in machine arithmetic the results 
of the two definitions may differ, and differ significantly, if the 
elements of X differ by many orders of magnitudee For example, compare 
the Last element of the scan with the corresponding reductions in the 
following case: 


X*1E6 "1E6 1E 16 
+\X 
1000000 O 1E 16 
+/X 
0 
+/OX 
1E 16 


Therefore, the scan, as well as reduction, should be used with care 
in work requiring high precisione 


EXECUTE 


Any character vector can be regarded as a representation of an APL 
statement (which may or may not be well-formed) e The monadic function 
denoted by @ (L and oO overstruck) takes as its argument a character 
vector or scalar and evaluates or executes the APL statement it 
representse When applied to a character argument that might be 
construed as a system command or the opening of function definition, an 
error will necessarily result when evaluation is attempted, because 
neither of these is a well-formed APL statement. 


There are several major uses of the execute function: 


1e In those instances where it is desired to use the name of an APL 
object as an argument of a function, rather than its value, the 
mame can be enclosed in quotes, and the argument later evaluated 
within the function by means of the execute functione A common 
example of this is in the use of a general integration function 
whose arguments might be the vector of grid points and the name of 
the function to be integratede For example: 


V ZeL INT X;Y 
[1] Z-—(1UX— 19X)+exOeSxlLly+ 1HYeoaL,' xt 
V 
V Z-Q X 
C1] Z2eX*3 
Vv 
for INT e1*t5 
0.0162 


Ze When applied to a vector of characters representing numerical 
constants, the execute function will convert them to numerical 
valuese This is particularly useful in this system, in which 
access to data generated by alien systems is provided through the 
shared variable facility, and large quantities of such data may 
need to be converted to numerical APL arraySse 


3e Where it is necessary to treat collections of data that are related 
but cannot be combined into a Single array, the execute function 
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allows families of names to be used for related variable. The 
proper variables for each case can be generated and used under 
program control, either by selecting one of a set of names from a 
character matrix, by computing a numerical suffix toa generic 
mame, or by other meanse 


4e The construction af is nearly equivalent to the use of ( for 
requesting input from the keyboard during function execution, and 
has certain advantages: it allows complete control over output 
prior to the requested input, and permits the input to be examined 
by the function prior to the attempted executione 


5e Conditional expressions can be constructed in which execution is 
applied only to the expression selected by the condition, avoiding 
possible error generation or unnecessary computatione For example, 
a recursive definition of the factorial function can be written as 
a Single conditional statement: 


VZ*FACT N 
C1] 23 ~12(1+N#O]T"Z-1 ZeNxFACT N-1! 
Vv 5 


The execute function may appear anywhere in a statement, but it will 
successfully evaluate only valid (complete) expressions, and its result 
must be at Least syntactically acceptable to its context. Thus, execute 
applied to a vector which is empty, contains only spaces, or starts with 
~ (branch symbol) or a (comment symbol) produces no explicit result and 
therefore can be used only on the extreme left. For example: 


arte 
Zea 

SYNTAX ERROR 
Zeglt 
A 


The domain of @ is’ any character array of rank less than two, and 
RANK and DOMAIN errors are reported in the usual way: 


c+'3 4° 
+/ac 
4 
a1 39C 23 4 
RANK ERROR DOMAIN ERROR 
a1 3pc 23 4 
A A 


An error can also occur in the attempted execution of the APL 
expression represented by the argument of @; such an indirect error is 
reported by the usual error message followed by a display of the 
argument of the execute function, a caret showing the point of 
difficulty, a display of the statement containing the execute function 
and another caret marking the point of difficulty. For example: 


123+a'420! 
RANGE ERROR 
a: 420 
A 
123+a'440! 
A 
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FORMAT 


The symbol 8 (T and © overstruck) denotes two format functions which 
convert numerical arrays to character arraySe There are several 
significant uses of these functions in addition to the obvious one for 
composing tabular outpute For example, the use of format is 


complementary to the use of execute in treating bulk input and output 
(via the shared variable facility), and in the management of combined 
alphabetic and numeric datae 


The monadic format function produces a character array identical to 
the printing normally produced by its argument, but makes this result 
explicitly availablee For example: 


M*+2=?4 4p2 


R-UM 

M R RCL3 1+2x24] 
0101 010901 0101 
0011 0011 0011 
1011 1011 1011 
0011 9011 OoO11 

pM pR 
4 4 48 

pt2 5 
3 

A/,R=ER 
1 

¥*ABCD* 
ABCD 


The format function applied to a character array yields the array 
unchanged, as illustrated by the last two examples abovee For a 
numerical array; the shape of the result is the same as the shape of the 
argument except for the required expansion along the last coordinate, 
each number going, in general, to several characterSse The format of a 
scalar number is always a vectore 


The dyadic format function accepts only numerical arrays as its right 
argument, and uses variations in the left argument to provide 
progressively more detailed control over the resulte Thus, for FRA, the 
argument F may be a single number, a pair of numbers, or a vector of 
Length 2x 1f1,pAec 


In general, a pair of numbers is used to control the result: the 
first determines the total width of a number field, and the second sets 
the precisione For decimal form the precision is specified as’ the 
number of digits to the right of the decimal point, and for scaled form 
it is specified as the number of digits in the multipliere The form to 
be used is determined by the sign of the precision indicator, negative 
numbers indicating scaled forme Thus? 
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R+9 240A 
S<-9 “293A 


pL-R 
12.34 34-57 
0.00 12-00 
~“Q0e26 123-45 
3 18 


pls 
1.-2E01 3e5EO1 
0.-VE00 1.2E01 
~2e6E 01 1-2E02 
3 18 


plLi-12 3BA 

12.340 ~ 34.567 
0-000 12.000 

~ 0-260 ~ 123-450 


pLl-7 “109A 
1£01  3EO01 
OFOO 1E01 
~39E 01 ° 1£02 
3 14 


If the width indicator of the control pair is zero, a field is chosen 
such that at least one space will be left between adjacent numbers. If 
only a single control number is used, it is treated like a number pair 
with a width indicator of zero: 


plL<-24A pLi- 2BA 
12-34 ~ 34.57 1e2E01  3-5E01 
0.00 12-00 0-0E00 1-2E01 
~0e26 123.45 ~2e6E 01  1-2E02 
3 16 3 18 
pl-0 29A pL+-O 290A 
12.34 34.57 1.-2F01 §3-5£E01 
0-00 12.00 0-O0E00 1.2£2E01 
~0e26 123.45 ~~ 2e6E 01 1-2E02 
3 16 3 18 


Each column of an array can be individually composed by a left 
argument that has a control pair for each: 


pL-0 2 O 24A epL+8 3 0 24A 
12-34 ~ 34.57 12.340 34.57 
0-00 12.00 0.000 12-00 
~ 0626 123245 ~0e260 ~123.45 
3 15 3 16 
pl+-6 2 12 3A pC+8 0 0 249A 
12.34 ~3e46E01 12 ~3.-5E01 
0.00 1-20E01 0 1.2E01 
~ 0026 ~1e23E02 0  1-2E02 
3 18 3 17 


628933040 5 0 12 43,A 
12.34 34.567 OQ 12 0 ~ 423-4500 
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The format function applied to an array of rank greater than two 
applies to each of the planes defined by the last two coordinatese For q 
example: ; 


Le-2=?2 2 5p2 


L 4 1981. 
11001 1-0 1-0 060 0-0 1.0 
111041 1-0 1-0 1-0 0.0 1-0 
10010 160 060 0-0 1-0 0-0 
0000 0 0-0 0.0 0-0 0-0 0.0 


Tabular displays incorporating row and cotumn headings, or other 
information between columns and rows, are easily configured using the 
format function together with extended catenatione For example: 


ROWHEADS+4 3p*JANAPRJULOCT © 
YEARS<71+¢5 
TABLE*.001x 4E5+?4 5Sp8E5 


} 4s 
\ ai 
: po. (* *,{ 1] ROWHEADS),(2)9 O¥YEARS),[L1]9 2*TABLE 
no | 12 13 714 15 16 
JAN 204.49 26021 ~362236 143.44 ~93.20 
APR 264¢77 ~357423 136.92  ~93.27 ~66.01 
JUL 71018 276693 ~326643 ~67620 328426 


ocT 190.04 188.87 106.11 392.83 — 202.37 


It is no longer necessary to use heterogeneous output in order to 


conveniently combine Literal statements with numerical resultse For 
example: 4 
X-17.34 M+'THE VALUE OF X IS ° J 
X~-25-4 
"THE VALUE OF X IS "5X M;X 
THE VALUE OF X IS 17434 THE VALUE OF X IS 25-44 
"THE VALUE OF X IS ',8X (9M), (BX) 
THE VALUE OF X IS 17434 THE VALUE OF X IS 25-44 


There are obvious restrictions on the left argument of format, since 
the width of the field must be large enough to hold the requested form, 
and if the specified width is inadequate the result will be a DOMAIN 
errore However, the width need not provide open spaces between adjacent 
numberse For example, boolean arrays can be tightly packed: 


1 O82=74 4p2 > 
1111 
0110 
0100 
0000 . 


The following formal characteristics of the format function need not 
concern the general user, but may be of interest in certain 
applicationse 


The least width, W, required to represent a column of numbers C for 
an indicated precision P is determined as follows: 


W-1f (V/C<0)4+(~Pe0O ~1)4+(|P)+(4,f /0,14+1 100|C+C=0)[1+P20] } 


28 APL/CMS User's Manual 


The expressions (M¥A),N¥B and (M,N)¥A,B are equivalent if M and N are 
full control vectors, that is, if 


((pM)=2x"1t pA) A(pN)=2* 1tpB 


If 2=pM, then (M9A),M¥B and M¥A,B are equivalent. 


SYSTEM FUNCTIONS AND SYSTEM VARIABLES 


SSS TS CT 6 (NRC 


INTRODUCTION 


Although the primitive functions of APL deal only with abstract objects 
(arrays of numbers and characters), it is often desirable to bring the 
power of the Language to bear on the management of the concrete 
resources or the environment of the system in which APL operatese This 
can be done within the language by identifying certain variables as 
elements of the interface between APL and its host system, and using 
these variables for communication between theme While still abstract 
objects to APL, the values of such system variables may have any 
required concrete significance to the host systeme 


In principle all necessary interaction between APL and its 
environment could be managed by use of a complete set of system 
variables, but there are situations where it is more convenient, or 
otherwise more desirable, to use functions based on the use of system 
variables which may not themselves be made explicitly available. Such 
functions are called; by analogy; system functions. 


System variables and system functions are denoted by distinguished 
names that begin with a quade The use of such names is reserved for the 
system and cannot be applied to user-defined objectsSe They cannot be 
copied, grouped, or erased; those that denote system variables can 
appear in function headers, but only to be tlocalizede Within APL 
statements, distinguished names are subject to all the normal rules of 
syntaxe 


SYSTEM FUNCTIONS 


Like the primitive abstract funtions of APL, the system functions are 
available throughout the system, and can be used in defined functionse 
They are monadic or dyadic, as appropriate, and have explicit results. 
In most cases, they also have implicit results, in that their execution 
causes a change in the environmente The explicit result always 
indicates the status of the environment relevant to the possible 
implicit results. Several of the system functions are used to control 
the shared variable facility and are described below in this section 
under the heading "Shared Variables"; the rest followe 


Canonical Representation 


The character array printed in displaying the definition of a function F 
is clearly an unambiguous representation of the function Fe The 
representation remains unambiguous if the V symbols and the line numbers 
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with their brackets are removed and the lines made flush lefte If the 
rows are then padded with spaces on the right, where necessary to make 
them all of equal length; the resulting matrix is called the canonical 
representation of Fe The canonical representation of a defined function 
is obtained as a result of applying the system function [ICR to’ the 
character scalar or vector representing the name of the functione For 
example: 


VBIN((DIV 
V Z<BIN X 
C1] Z-1 


{2] L1:Z-(0,Z2)+Z,0 
[3] ~(X2>p9Z)/L1 
[4] A ILLUSTRATE (CR 
Vv 

M+(CR ‘BIN® 

M 
Z-BIN X 
Z+1 
L1:Z-(0,Z2)+Z,0 
~(X2>p9Z)/L1 
a ILLUSTRATE CCR 


pM 
5 16 

BIN 4 
14641 


The function [ICR applied to any argument which does not represent the 
mame of an unlocked function yields a matrix of dimension 0 by Oe 
Possible error reports for [ICR are RANK error if the argument is not a 
vector or a scalar, or DOMAIN error if the argument is not a character 


arrave 


Function Establishment 


The definition of a function can be established or fixed by applying the 
system function (FX to its canonical representatione To continue the 
preceding example: 


M(3;11]-'-'* 


CFX M 
BIN 
VBIN(ICIV 
V Z+BIN X 
(1] Z<-1 


{2} L1:Z-(0,2Z)-—Z,90 
{3] ~(X>pZ)/L1 
[4] a ILLUSTRATE (CR 
Vv 
BIN 4 
1° 46  ° 41 


As shown in the foregoing example, the function DFX produces’ as an 
explicit result the vector of characters which represents the name of 
the function being fixed, white replacing any existing definition of the 
function with the same namee The argument of (FX is, of course, 
unaf fectede The name provided by the explicit result can be 
conveniently used in a variety of wayse For example: 
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o(LFX M),' 4! 
1°46 41 


The name of any function established by the function [JFX obeys the 
normal rules of localizatione Thus if a function ABC is established 
within a function G in which the name ABC is local, the definition of 
ABC disappears upon termination of execution of Ge Function definition 
mode continues to apply to global names onlye 


An expression of the form [FX M will establish a function if the 
following conditions are met: 


1. M is a valid representation of a functione Any matrix which 
differs from a canonical matrix only in the addition of 
nonsignificant spaces (other than a row consisting of spaces only) 
is a vwalid representation. 


2e The name of the function to be established does not conflict with 
an existing use of the name for a pendent, suspended or the current 
function or for a label, group, or variable. 


Je Certain system restrictions must be satisfied; for example, the 
number of rows of the function must be less than 2049. A NONCE 
error is reported in these caseSe 


If the expression fails to establish a function then no change occurs in 
the workspace and the expression returns a _ scalar index of the row in 
the matrix argument where the fault was founde If the argument of (FX 
is not a matrix a RANK error will be reported, and if it is nota 
character array a DOMAIN error will resulte If condition 3 above is 
violated, a NONCE error is reportede 


Dynamic Erasure 


Certain name conflicts can be avoided by using the expunge function [JEX 
to dynamically eliminate an existing use of a namee Thus (EX 'PQR!'! will 
erase the object POR unless it is a label, a group, or a pendant or 
suspended functione The function returns an explicit result of 1 if the 
name iS now unencumbered, and aresult of 0 if it is not, or if the 
argument does not represent a well-formed namee The expunge function 
applies to a matrix of names and then produces a logical vector resulte 
(JEX will report a RANK error if its argument is of higher rank than a 
matrix, or a DOMAIN error if the argument is not a character arraye 


The expunge function is like the )ERASE command except that it 
applies to the active referant of a name (which may be Local), and 
cannot expunge certain namese 


Name List 


The dyadic function [NL yields a character matrix, each row of which 
represents the name of an object in the dynamic environmente The right 
argument is an integer scalar or vector which determines the class of 
names produced as follows: 1, 2, and 3, respectively, invoke the names 
of labels, variables, and functionse The left argument is a scalar or 
vector of alphabetic characters which restricts the names’ produced to 
those with an initial Letter occurring in the argumente The ordering of 
the rows is accidentale 
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The monadic function [NL behaves analogously with no restriction on 
initial Letters. For example, [NL 2 produces a matrix of all variable 
names, and either of [NL 2 3 or [NL 3 2 produces a matrix of all 
variable and function namese 


The uses of [INL include the following: 


© In conjunction with (EX, all the objects of a certain class can be 
dynamically erased; or a function can be readily defined that will 
clear a workspace of all but a preselected set of ob jectse 


© In conjunction with (CR, functions can be written to automatically 
display the definitions of all or certain functions in the workspace, 
or to analyze the interactions among functions and variablese 


® The dyadic form of [NL can be used as a_ convenient guide in the 
choice of names while designing or experimenting with a workspace. 


Name Classification 


The monadic function [NC accepts a matrix of characters and returns a 
numerical indication of the class of the name represented by each row of 
the argument. A single name may also be presented as a vector ora 
scalare 


The result of [NL is a suitable argument for [JINC, but other character 
arrays may be used, in which case the possible results are integers 
ranging from 0 to 4-e The significance of 1, 2, and 3 are as for (INL; a 
result of OQ signifies the corresponding name is available for any use; a 
result of 4 signifies that the argument is not available for use as a 
name e The latter case may arise because the name is in use for denoting 
a group, or because the argument is a distinguished name or not a valid 
name at alle / 


Delay 


The delay function, denoted by [DL, evokes a pause in the execution of 
the statement in which it appearse The argument of the function 
determines the duration of the pause, in seconds, but the accuracy is 
Limited by possible contending demands on the system at the moment of 
releasee The delay can be prematurely terminated by a single or double 
attentione A single attention causes execution of the statment to be 
resumede A double attention causes an INTERRUPT report and the keyboard 
unlockse The explicit result of (DL is a scalar value equal to the 
actual delaye If the argument of [DDL is not a scalar or a vector with a 
Sinzle numerical value, a RANK or DOMAIN error will be reportede 


SYSTEM VARIABLES 
System variables are instances of shared variablese The characteristics 
of shared variables that are most significant here are these: 

Le If a variable is shared between two processors, the value of the 


variable when used by one of them may well be different from what 
that processor last specifiede 
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2- Each processor is free to use or not use a value specified by the 
other, according to its own internal workingse 


System variables are shared between @ workspace and the APL 
processore Sharing takes place automatically each time a workspace is 
activated and, when a system variable is localized in a function, each 
time the function is usede 


The system variables are listed belowe Also listed are the workspace 
functions and I-beam functions they are intended to replace. These 
earlier ad hoc facilities are still available, but are expected to be 
supplanted by the use of system variablese The old definitions of the 
workspace functions will no longer worke New definitions may be copied 
from 1 WSFNS, or defined, as in the following example: 


V Z*+ORIGIN N 
(1] Z<-LIO 


[2] (iTO<-N 
Vv 


The system variables are: 


Value in 


Name Purpose Clear WS Range Replaces 
OCT Comparison tolerance —-/2%*-43 55 0to SETFUZZ 
(relative ) 
—-/2*-24 55 
OITO Index origin used in 1 01 ORIGIN 
indexing, ?, ¥,4, and « 
OLX Latent expression executed ee Characters none 
on activation of workspace 
CPP Printing precision: affects 10 «16 DIGITS 
numeric output and monadic #8 
"JPW Printing width 120 2944225 WIDTH 
[RL Random link: used in ? 7*5 e 1+2*31 SETLINK 
(AIT Accounting information: r29 21 24 19 
identification (always 
zero), computer, connect, 
keying times, measured in 
milliseconds 
[(JLC Line counter: Line numbers 0 I27 26 
of functions in execution 
OTS Time stamp: year, month, day, r25 20 
hour, minute, second, millisecond 
CTT Terminal type: O for 1050, r28 
1 for Selectric, 2 for 
PTTC/BCD, 1 for other devices 
(UL User load (always 1) I23 
CWA Working area available rI22 


Two classes of system variables can be discerned: 


e Comparison tolerance, index origin, latent expression, printing 
precision, printing width, and random Link: In these cases the value 
specified by the user (or available in a clear workspace) is used by 
the APL processor during the execution of operations to which they 
relate. If the user attempts to specify an inappropriate value to a 
system variable, the specification is suspended and a NONCE error is 
repor tede On entry to a function whose header specifies the Local 
instance of a system variable, that system variable is made local and 
then the value extant on entry to the function is assigned to the 
Local instancee 
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@® Account information, line counter, time stamp, terminal type, user 


Load and work area: In these cases’ localization or setting by the 
user are immateriale The APL processor will always reset the 
variable before it can be used againe When using APL/CMS, [UL is 
always 1 because there is only one user on a virtual machinee 


Latent Expression: The APL statement represented by the latent 
expression is automatically executed whenver the workspace is 
acti vatede Formally, (LX is used as an argument to the execute function 
(@#C(LX) and any error message will be appropriate to the use of that 
func tione Common uses of the Latent expression include the form: 


[DLxX-'G'* 
used to invoke the arbitrary function G, and the form: 
CLLX—t!tFOR NEW FEATURES IN THIS WS ENTER: NEW! 


used to print a message on activation of the workspacee The form 
[LILX-'-([LC' can be used to automatically restart a suspended functione 
The variable [LX may also be Localized within a function and respecified 
therein to furnish a different latent expression when the function is 
suspendede 


Atomic Vector: This system variable found in APLSV is not present in 
APL/ CMS. Users with a requirement for the terminal control characters 
backspace, horizontal tabulate, idle, Line feed, and new line can copy 1 
SPECIAL QUADTC to obtain these as a five-element character vectore 


SHARED VARIABLES 


INTRODUCTION 


Two otherwise independent concurrently operating processors can 
communicate, and thereby be enabled to cooperate, if they share one or 
more variablese Such shared variables constitute an interface between 
the processors, through which information can be passed to be used by 
each for its own purposese In particular, variables can be shared 
between an APL workspace and some other processor that is part of the 
overall APL system, to achieve a variety of effects including the 
control and utilization of devices such as printers, card readers, 
magnetic tape units, and magnetic disk storage unitSe 


In an APL workspace, a Shared variable may be either global or local, 
and is syntactically indistinguishable from ordinary variables. It may 
appear to the left of an assignment, in which case its value is said to 
be set, or elsewhere in a statement, where its value is said to be usede 
Either form of reference iS an accesSe 


At any instant a shared variable has only one value, that tLlast 
assigned to it by one of its ownerSse Characteristically,; however, a 
processor using a shared variable will find its value different from 
what it might have set earlier. A familiar example of this in APL is the 
quote quad when it is used successively for output from a function and 
input to it from the keyboard; ™ is, in fact, a variable shared between 
the function and the user at the terminal. 
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A given processor can simultaneously share variables with any number 
of other processorse However, each sharing is bilateral; that is, each 
shared variable has only two ownerse This restriction does not 
represent a loss of generality in the systems that can be constructed, 
and commonly useful arrangements are easily designede 


Shared variables are used to communicate between independent 
processorse The kinds of processors which can be used depend on the 
facilities of the host operating systeme APL/CMS has a single APL user 
on each virtual machine, running under the CMS component of VMe 
Processors available in APL/CMS include the single user's APL program, 
the APL/CMS processor and four APs (auxiliary processors) which are 
supplied with the systeme The APs are described in detail in Section 6; 
for example, AP110 can read and write CMS disk filese 


The full power of the shared variable concept can be gained by 
reading the APLSV User's Manuale APLSV runs under the OS/VS operating 
systeme It allows an APL program to share a variable with an auxiliary 
processor e It also allows two active APL users to share a variable; in 
other words two APL users can communicate with each other via shared 
variablese 


Note: APL/CMS does not allow active APL users to communicate directly 
with each other through the use of shared variablese 


We now describe the shared variable system functions, as they are 
normally used under APL/CMSe We then describe some additional features 
present for compatibility with APLSV. 


OFFERS 


A single offer to share is of the form P [JSVO Ny, where P is’ the 
identification of another processor and N is a character scalar or 
vector which represents a namee The result is a number which gives the 
degree of coupling: zero if no offer has been made, one if an offer has 
been made but not matched, two if sharing is completed. An offer can 
mever decrease the degree of couplinge For example: 


110 Qsvo'gg' 


0 

110 (SVO'ALPHAt 
2 

999 CSVO'ALPHA'* 
0 

999 [SVO'BETA® 
1 


The first offer is rejected because 99 is not a namee The result OQ 
indicates no couplinge The second offer is offered and accepted 
resulting in a degree of coupling of 2. The third offer is rejected 
because ALYHA is already shared with auxiliary processor 110-6 The 
fourth offer produces a degree of coupling of 1 because it is offered 
but not accepted by a matching counter offere 


If auser attempts to share more variables than the Limit determined 
when the system is installed the error reported is INTERFACE QUOTA 
EXHAUSTED. This tLimit is 45 in APL/CMS as distributed. Other system 
Limits may cause the report SVP MEMORY FULL or SVP NAME TABLE FULL to be 
issued; these Limits are described in the APL/CMS' Installation Manual 
and may be changed when the system is installede 
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A set of offers can be made by using a vector left argument (or a 
scalar or one-element vector which is automatically extended) and a 
matrix right argument, each of whose rows represents a name ( or a name 
pair: see below for surrogate names) e The offers are then treated in 
sequence and the explicit result is the vector of the resulting degrees 
of couplinge For example: 


110 [SVO 3 Sp"DELTAI234SRHO ! 
20 2 


If the quota of shared variables is exhausted in the course of such a 
multiple offer, none of the offers will be tenderede 


The monadic function [(SVO accepts an argument N which is a scalar, 
vector or matrix of characterSe It does not change the degree of 
coupling but does have an explicit result which gives the degree of 
coupling of the name or names in Ne If the degree of coupling of a name 
is 1 or 2, dyadic offer operates, in effect, as a query the same as the 
monadic forme The expression 


(O#0~SVO CNL 2)# [NL 2 


produces a character matrix of shared variable names, one per rowe 


RETRACTION 


Sharing offers can be retracted by the monadic function [JSVR applied to 
amname or a matrix of mnameSe The explicit result is the degree (or 
degrees) of coupling prior to the retractione The implicit result is to 
reduce the degree of coupling to zeroe 


Retraction of sharing is automatic if the user signs off or loads a 
new workspacee Sharing of a variable is also retracted by its erasure 
or, if it is a local variable, upon completion of the function in which 
it appeared, or if an object with the same name is copied into the 
workspacee 


USING THE APL/CMS AUXILIARY PROCESSORS 


The APL/CMS auxiliary processors use the initial value of the shared 
variable to indicate the source and/or destination of the processors 
input/output and to select certain optionse For example, the following 
sequence will write two records to a CMS file called “EXAMPLE SCRIPT". 
The "370" conversion option is selectede The first record is "THIS GOES 
IN THE FIRST RECORD" and the second record is "AND THIS GOES IN THE 
SECOND". 


S<-"*EXAMPLE SCRIPT(370! 
110 CSvo's'* 


S«"*THIS GOES IN THE FIRST RECORD! 


S-"*AND THIS GOES IN THE SECOND! “i 
CSVR*st 2. eA 


36 APL/CMS User's Manual 


3 


In this case, S is the name of the shared variablee Notice that the 
argument to [SVO and (SVR is 'S* not Se See Section 6 for further 
details of the auxiliary processorSse 


COMPATIBILITY WITH APLSV 


APL/CMS has one user on one virtual machine. In addition, CMS is a 
Synchronous systen, that is, one which completes each request before 
continuing with the nexte APLSV has many users on one real machine and 
it is possible for asynchronous processes to communicate with each 
othere APL/CMS provides certain features which have Little value in the 
CMS environment but which may be useful for maintaining compatibility 
with APLSV. We give a brief description of the APL/CMS' feature here}; 
full details of the APLSV feature will be found in the APLSV User's 
Manual. 


Surrogate Names 


The description of [CSVO implied that two processors which share a 
variable must agree on a common name for the variable. Since it may be 
difficult for two processors to agree on a common name, [JSVO will accept 
a single name, such as *ALPHA', or a pair of names such as ‘ALPHA 
BETA!. The second name of the pair is called a surrogate namee In the 
case of a single name, the name is its own surrogate. The process of 
sharing causes variables with the same surrogate names to, matchede 
APL/CMS allows the use of surrogate names, but Since the auxiliary 
processors will accept any names offered to them, surrogate names need 
not be usede 


Access Control 


In certain practical applications of shared variables, it is important 
to know that a new value has been assigned since the variable was last 
referenced, or that the old value has been used before a new one is 
assigned. The shared variable facility has an access control mechanism 
which allows processors to enforce an access discipline. 


The access control operates by inhibiting the setting or use of a 
shared variable by one owner or the other, depending on the access state 
of the variable and the value of the access control matrix. Access 
control is set by an expression of the form 8B {JSVC N, where N isa 
character vector representing the name of a shared variable and Bis a 
four element vector of zeroes and ones (or a_ scalar or one-element 
vector which is extended in the usual way)e See the APLSV User's Manual 
for a complete explanatione 


The monadic form of [SVC reports the current setting of the control 
matrix, one four element row per name in Ne The argument N of ([JISVC may 
specify a matrix of names, and in the dyadic case, the argument B may be 
a matrix of zeroes and ones with one row for each namee 


Note: The APL/CMS auxiliary processors set the access control vector to 
1111, jthe highest degree of control possible, and are programmed to 
access variables shared with them in such a way as to. prevent 


interlockse 
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If a valid offer is made to a nonexistent processor then the access 
control vector is set to zero, for example 


400 [jSvo'x'® 


1 
Csve'xe 
0000 
x<-99 
x 
99 
1111 fsvc"x'® 
11141 


The access control vector now specifies that successive accesses by 
the APL program requires an intervening access by processor 400. 
Processor 400 does not exist so it will neither use or set X. If the APL 
program attempts to access X then a permanent wait would resulte APL/CMS 
detects this situation, forces an interrupt, and prints the error report 
INTERRUPT: PERMANENT SV WAITe 


Inguiries 


There are three monadic inquiry functions which produce information 
concerning the shared variable environment: [(JSVO, [JSVC, and (SVQ. The 
first two have been discussed in this sectione A user who applies the 
shared variable query function, [JSVQ, to an empty vector obtains a 
vector result containing the identification of each other user making 
any sharing offer to the usere 


Applying the same function to an integer scalar or one-element vector 
obtains a matrix of the names offered by the processor identified in the 
argumente This matrix includes only those names which have not been 
accepted by counter offers from the inquiring usere 
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SECTION 5: CMS FACILITIES AND THE APL/CMS USER 


In this part of the manual, we discuss some CMS concepts and a subset of 
CP and CMS commands that may be useful to the APL usere For further 
details, see the VM/370: Command Language Guide for General Userse CMS 
commands cannot be used in the APL environment directly but can be 
transmitted via auxiliary processor 100 described in Section 6+ APL 
commands are not recognized by CP or CMSe 
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LINK AND ACCESS COMMANDS 


The VM/370 directory contains the properties of individual virtual 
machinese One or more entries specify the virtual disk(s) that belong 
to a particular machinee CP identifies disks by a device addresse Most 
machines have a primary disk at device address 191 and wilt have Links | 
to disks belonging to other machinese For example, the directory for an | 
APL user may contain an entry of the form: 


Link vmaplsys 101 101 rr 
This indicates the user has access to the 101 disk of a machine whose 


userid is VMAPLSYSe The Last two operands define the device address as 
101 and the access to the disk as read-only for this usere | 


As noted in the Section 2 discussion on "Saving and ne 


Workspaces,"' CMS refers to disks by mode  lLlettere A correspondence 
between the CP device addresses and the CMS usage of the disks is 
established by an ACCESS commande For example, 


access 101 z 


allows CMS to use disk 101 as a Z diske CMS accesses 191 as the A-disk 
and APL/CMS accesses 101 as the Z diske 


The CP command LINK and the CMS command ACCESS, can be used, among 
cooperating users, to establish a common disk for storage of workspaces 
and data files. Access to a user's private disk is controlled by VM/370 
directory entries and passwordse 


CMS FILES 


Items on a virtual disk are organized into CMS filese A CMS’ file is 
known by its filename, filetype, and filemodee The filename and the 
filetype are each composed of one- to eight-alphameric characterse The 
filetype is formed like a filename, but CMS commands usually associate a 
particular filetype with a particular kind of filee For example, 
APL/CMS uses’ the filetype VMAPLWS for all workspaces in the private 
Librarye EXEC files usually contain a List of CMS and CP commands te be 
executede The filemode is one letter followed by one numbere The 
Letter specifies the disk the file is one The numeral 1 indicates a 
permanent file available for both reading and writinge 


The information in CMS files is grouped into records, which are the 


smallest unit in the file system. Records are grouped into filese 
Records in each file are fixed length, meaning the Length of all records 
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is the same (and must remain so) or variable Length, which imposes no 
such restriction. The maximum length of a record is 65,532 bytese CMS 
allows its files to be accessed sequentially or by specification of the 
record position (1-origin). 


Random accessing can be used with fixed or variable files but it is 
more efficient with fixed files. Records can be changed in existing 
files, but the length of any record of a variable file, except the Last 
record, cannot be changed without unpredictable resultse Records cannot 
be deleted from files but can be added to the end of an existing filee 


The units of information which CMS transmits to and from disk storage 
are called blockse The CMS file system collects’ several short records 
or splits up long records as it transfers information block by block to 
and from diske A block is 800 bytes’ longe You need be aware of blocks 
only if you wish to compute the amount of disk space usede 


LISTFILE COMMAND 


At some stage of APL execution, you may encounter a DISK FULL message.e 
You can use the APL )LIB command to list the workspaces on the disk; 
however, you may have other files generated by the APL auxilary 
processors which are not Listed by )LIBe You can list all files with 
the CMS LISTFILE command which has some of the following variants: 


Listfile fn ft fm 
displays information concerning the file having the given filename (fn), 
filetype (ft), and filemode (fm). If fm is omitted then A is assumed; 
if ft and fm are omitted then all files with name fn on the A-disk are 
Listede 

Listfile * £t fm 
Lists all files with type ft on disk fme The command 

Llistfile * vmaplws 
Lists all VMAPLWS files, and 

Listfile 
Lists all files on the A-diske There are several options that can also 
be usede If the command line ends in (ALLOC), then the format (fixed or 
variable), the number of records, and the number of blocks are listed 


for each filee For example: 


Llistfile alpha (alloc) 


FILENAME FILETYPE FM FORMAT RECS BLOCK 
ALPHA VMAPLWS Al V 4616 3 9 
ALPHA ASSEMBLE Ai_ F 80 392 40 


"y 4616" denotes variable Length records, with the Longest record of 
length 4616 bytese "F 80" denotes fixed-length records of 80 bytes 
eache The number under BLOCK gives the number of &800-byte blocks 
occupied by the filee 
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QUERY COMMAND 


The CMS command LISTFILE lets you find the space used on a virtual disk 
by each filee More generally, the CVS command 


query disk a 


gives a summary of the state of the A-disk (other disks may be specified 
by their letter). An example of the reply to a query is, 


A (191): 3 FILES; 155 REC IN USE, 1173 LEFT (of 1328), 
12% FULL (5S CYL), 3330, R/W 


Do not be confused by this inconsistent usage: REC refers to what 
LISTFILE calls blockse The reply shows that 12 percent of the available 
space is usede The virtual disk address is 191 and is 5 cylinders of 
3330 disk storage, which is Linked in read/write mode. 


As mentioned earlier, the CP command QUERY STORAGE, indicates to you 
the size of the user's virtual storagee The CP command QUERY NAMES 
lists the names of the other virtual machines currently Logged on the 
systeme You can send messages by using the APL )MSG command, or the CP 
MSG (or MESSAGE) command 


cp msg userid eeeany mesSsageece 


where userid is the name of the other virtual machinee (This use of the 
userid corresponds to the APL\360 use of the port number. } 


ERASE COMMAND 


You can free the disk space used by unwanted workspaces by issuing the 
APL )DROP command. You can get rid of workspaces or other unwanted CMS 
files by using the CMS command 


erase fn ft fm 


If fm is omitted, then A is assumede Replacing fn with an asterisk (*) 
causes all files of type ft to be erasede 


WORKSPACES AND CMS FILES 


An APL })SAVE command causes the APL/CMS system to store the information 
from the workspace into a CMS filee Only useful information is stored, 
not the work area, so the space on the disk is related to the APL 
objects in the workspace, not the gross workspace sizee The A-disk is 
used for storage of these workspaces when no Library is’ selectede 
Libraries are stored on disks apart from the APL user's virtual machine; 
details are supplied in the APL/CMS Installation Manual. 


APL/CMS uses the D-disk, if accessed read—write, otherwise the 
A-disk, for storing intermediate and utility files of type VMAPLUT. 
These files are used for the APL stack of auxiliary processor 101, the 
workspace conversion utilities, and during the APL })COPY, )PCOPY, and 
)SAVE commands, for example. 
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PRINT, PUNCH, AND TYPE COMMANDS 


An APL program can create files by using the auxiliary processors (see 
Section 6)-e One of the processors can send files directly to the Line 
printer or card punche There are some occasions when it is easier to 
use the auxiliary processor to create a CMS file and then use CMS 
commands to type or print the file. When the CMS PRINT command is 
issued, as follows: 


print fn ft fm 


it causes the contents of the specified CMS file to be printede The 
graphical representation of each character is dependent upon the printer 
characteristicsSe The VMAPLWS'7 files contain nonprintable records; 
however, the auxiliary processors supplied with the system can be used 
to write out APL variables in printable format. 


The PUNCH command operates’ Like the PRINT command except that the 
contents of the records are punched into cardse The punch reproduces 
any character. Cards may be read into the system with the CMS READCARD 
commande For further details, see VN/370: Command Language Guide for 
General Userse 


The TYPE command is similar to the PRINT command except that output 
appears at the terminal. If the file was produced with the APL 
conversion option of the auxiliary processor AP110, then the commands: 


cp term apl on 
type fn ft fm 
cp term apl off 


should be used to type the file. The first command indicates that you 


are going to use your APL type element for typing; the third command 
indicates the subsequent use of the VM/370 type element. 


EDIT AND SCRIPT COMMANDS 


CMS has an editor, called EDIT. For additional information about the 
editor, see the publication VM/370: EDIT Guidee The SCRIPT processor, 
an Installed User Program (IUP) available through IBM for a license fee, 
can be used to prepare formatted and paginated output Like this document 
from CMS filese 


FILEDEF COMMAND 


This CMS command is used to simulate the functions of the OS Job Control 
Language Data Definition (DD) in the CMS environmente Device 
independence is achieved by allowing the unit specification and file 
characteristics to be transmitted to programs that use the OS simulation 
macros and functionse APL/CMS includes an auxiliary processor, APIi111, 
which supplies sequential access via QSAM to any device specified by use 
of the FILEDEF commande 


Note: The CMS file processor, AP110, does not use FILEDEF and does not 
need any DD informatione 
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COPYFILE AND MOVEFILE COMMANDS 


The COPYFILE command can be used to copy part or all of a CMS file, to 
comb ine files, to change record formats and to do various 
transformations on data in the filee The MOVEFILE command moves data 
from any device supported by VM/370 to any other device supported by 
VM/370.- The input and output devices are defined by use of the FILEDEF 
commande 


TIME 


When you log off the system, a time message is issued as follows: 


CONNECT hh:mm:ss VIRTCPU momm:ssihs TOTCPU mmm:ss: hs 


where: 

hh is hours 

mm or mmm is minutes 

ss is seconds 

hs is hundredths of a second 


The connect time is the elapsed time since you logged one The VIRTCPU 
is the virtual CPU time you have usede TOTCPU is VIRTCPU plus the CPU 
time that was spent in CPe 


The CP command QUERY TIME yields the same result. 


SAVING WORKSPACES ON MAGNETIC TAPE 


TAPE Command 


The TAPE command can be used to save and restore CMS files on magnetic 
tapee It is useful for saving infrequently used workspaces or sending 
workspaces to other APL/CMS system installationse To save one or more 
files on a tape: 


1e Ask the operator for a tapee 
2- Log on to your machinee 
Je IPL CMS 


4e Ask the operator to ready the tape and attach it as 181 to your 
machine by issuing the following message: 


Cp msg op please attach tape PASC123 as 181 with ring in 


(This sample message is based on the assumption that the tape has 
"PASC123" as a Label.) The phrase "ring in" tells him to put a 
file protect ring in the tape; if the ring is out then it is 
impossible to write on the tapee In general, the operator wilt 
notify you when the tape is readye 
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5e To dump the workspaces ALPHA and _ BETA, issue the following 
commands: 


tape rew 
tape dump alpha vmaplws 
tape dump beta vmaplws 
tape wtm 
tape rew 
tape scan 


Note that each command starts with the word TAPE followed by a spacee 
REW causes the tape to be rewound, but note that it must be spelled REW, 
not REWINDe TAPE DUMP writes the named CMS file onto the tape; you may 
repeat this command for as many files as you wish to dump.e The TAPE WIM 
command writes a tape mark on the tape. A tape mark is conveniently 


used to separate groups of workspaceSe If you wish to dump atl 
workspaces, then you can use: 


tape dump * vmaplws 


TAPE SCAN Command 


The TAPE SCAN command reads the tape, verifies the tape contents, and 
types out a list of the CMS files on the tape from its current position 
to a tape marke 


If the tape appears to be satisfactory then use the following CP 
commands: 


cp detach i181 
cp msg op remove ring, and save tape 


to unload and save the tapee 


To retrieve a workspace at a later date, then log on, IPL CMS, and 
issue the command: 


cp msg op please attach PASC123 as 181 with ring out 


When the tape is attached, you can then issue the commands: 


tape rew 
tape load beta vmaplws 


to transfer the CMS file BETA VMAPLWS to your A-disk, which wilt 
overwrite an existing file of the same namee The example shows just one 
file being loaded. Using the command TAPE LOAD Loads all the workspaces 
up to a tape marke (You should detach unit 181 when you no longer need 
ite) 


If there is insufficient space on your disk, then you may get a DISK 
FULL messagee You can, if you wish, make some space available on the 
disk, rewind the tape, and try againe 
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SPOOL Command 


This CP command has many options to control the disposition of files 
associated with your virtual card reader, card punch, and line printere 
For example: 


spool printer copy n 


specifies that n copies be made of your Line printer outpute The 
command: 


spool punch to userid 


causes your virtual punch output to be directed to the virtual card 
reader of the machine identified by useride 


spool punch off 


directs future output to the real punche 


DISK DUMP and DISK LOAD Commands 


etree timer Shiite iam “were IRRPOenar FE 


The CMS command, DISK, can be used to move files from disk to card 
format using the DUMP option, or the reverse using the LOAD option.e It 
is generally not used to punch real cards (the TAPE command is normally 
used to move files from the system); rather, it is used in combination 
with the SPOOL command to direct files to, or receive files from, 
another user e For example, the commands 


cp spool punch to johndoe 
disk dump alpha vmaplws 
cp spool punch off 


transfer the APL/CMS workspace called ALPHA to the card reader of the 
machine, JOHNDOE. At that machine, the command 


disk load 


creates the file ALPHA VMAPLWS on the A-diske 


Note: Use the SPOOL command before issuing the DISK DUMP commande If 
the output is not spooled to another user, it is punched on real cardse 
If you discover you have made such a mistake, immediately send the 
following message: 


cp msg operator please flush punch output 


USING APL\360 OR APLSV WORKSPACES 


EN EY = § EEO 


To transfer APL\360 workspaces to an APL/CMS system requires several 
stepsSe Get the APL\360 system staff to dump your workspaces’ onto 
magnetic tapee Workspaces from an APLSV system must be dumped in 
APL\ 360 compatible form using the level 0 option of the APLSV utility 
programe This tape is not in the format of the CMS dump tape, so your 
system staff must convert the tape to an APL/CMS workspace on your 
diske 
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If you are familiar with CMS, then you may wish to do the conversion 
your selfe The process is described in the APL/CMS Installation Manuale 


The conversion goes in two stepSe Suppose the tape contains a 
workspace from APL\360 called ALPHA. The first step reads the tape and 
produces a CMS file with the name of ALPHA and filetype of APLWS. The 
second step accepts ALPHA APLWS as input, converts this workspace to the 
form used by APL/CMS and produces the file called ALPHA VMAPLWS. The 
same conversion procedure can be used for APLSV workspaceSe APL(CMS) 
IUP workspaces already exist as APLWS files, have the same format as 
APL\ 360, and require only the second conversion stepe 


After conversion, the workspace may contain functions with the names 
BADHEADERn, where n goes from 1 to the number of such nameSe The 
original header of these functions contains at least one duplicate name 
and is stored as a comment in the first line of the functione Edit the 
function, correct the original header, delete the lamp and del symbols, 
change the line number to zero, and close the function. 


The transfer of workspace information to APLSV (or other foreign APL 
systems with I/O capability) can be effected by writing the canonical 
representation of the functions in the workspace along with the 
variables in the workspace onto magnetic tapee Read this tape with APL 
programs to create a workspace on APLSV. 


SENDING WORKSPACES TO OTHER APL/CMS USERS 


The magnetic tape produced by the TAPE DUMP command can be used to send 
workspaces to other APL/CMS userse If the other user is on the same 
physical machine as you, then it is more efficient to doa direct 
disk-to-disk transfer using the APL/CMS public Library. Although an 
installation option, you can normally )LOAD and )SAVE into Libraries 
1000 through 999999. Loading the workspace you wish to transfer and 
saving it in the public library makes it available to another user, who 
can drop it from the public Library after the transfere 


If you get the message 
DISK NOT AVAILABLE 


while attempting the )SAVE in the public library, it means that the disk 
is temporarily unavailable for writing because some other machine is 
writing on ite Retry the command in a few secondse There is one 
drawback to this method, namely the lack of privacy during the 
transfere 


A more secure transfer is via the previously described DISK commande 


Once a workspace has been transferred, it can be used by entering the 
APL environment and using the )LOAD commande The load command adjusts 
the size of the workspace to the available storagee If the virtual 
storage on your machine is too small to accommodate the workspace, the 
message 


WS TOO LARGE 
results and loading does not take placee 

If you need to accommodate a workspace larger than your virtual 
storage, you may return to the CP environment and issue a DEFINE STORAGE 


command to expand the size of your virtual storage (within Limits set by 
your installation manager). Reload APL/CMS and try againe 
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SECTION 6: APL/CMS AUXILIARY PROCESSORS 


ET TN me TETAS «Sn AMER Ee 


The APL/CMS system includes the following auxiliary processors: 


AP100 COMMAND 
AP101 STACK INPUT 
AP110 CMS DISK I[/0 
AP111 FILEDEF 1/0 


The COMMAND processor enables an APL/CMS user to issue CP and CMS 
commandse The STACK INPUT processor stores data for input at the first 
opportunity to APL/CMS.e The CMS DISK I/O processor provides sequential 
and random access uSing the CMS file systeme The FILEDEF I/O processor 
provides sequential access to devices supported by the OS simulation 
facilities of CMS available through the FILEDEF command using QSAMe. 


The example introduced in Section 4 is given in more detail below; 
refer to it as you read the following sectionse 


‘a v 
S«"EXAMPLE SCRIPT(370' a SET INITIAL VALUE 
S a DISPLAY VALUE 
EXAMPLE SCRIPT(370 
110 LSVO'S* qa SHARE THE VARIABLE 
2 
S a REFERENCE AND DISPLAY VALUE 
o11 : y 
S«'"THIS GOES IN THE FIRST RECORD" a SET A VALUE 
S«"*AND THIS GOES IN THE SECOND*® a SET ANOTHER 
S A REFERENCE AND DISPLAY VALUE 
THIS GOES IN THE FIRST RECORD 
S @ REFERENCE AGAIN 
AND THIS GOES IN THE SECOND 
CSVR'S* q RETRACT VARIABLE 
2 


INITIAL VALUE 


When an offer to share with an APL/CMS auxiliary processor is made, the 
value of the variable being offered should be a character vector 
specifying the argument and options (if any) required by that auxiliary 
processore 


The general format for all initial values is: 
‘argument ( options!’ 
The auxiliary processors supplied with APL/CMS assist the APL user in 
the transmission of data to a destination and the receipt of data from a 
sour cee The argument passed in the initial value is used to determine 


this source and/or destinatione 


Following the source or destination argument is a left parenthesis 


used to indicate “options follow", It should be present only when 
options are specified by the user e The APL/CMS' auxiliary processors 
ignore extra left parentheses and disallow right parentheseSe The 


interpretation of the initial value is covered later for each auxiliary 
processore 
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Lave 


OFFER PROTOCOL 


The APL/CMS auxiliary processors match all shared variable offers by the 
user with matching counterofferse The initial value of the shared 
variable is interpreted by the auxiliary processor as a user requeste 
After inspecting the operating environment, the auxiliary processor 
specifies a new value for the shared variablee This value, when 
referenced by the user, will be a scalar 1 if the request is rejectede 
A new value of the variable can then be specified by the user after 
which the auxiliary processor (AP) repeats this proceduree 


When an acceptable initial value is specified, the AP sets the shared 
variable to a scalar zero or a vector with the first element zeroe The 
effect of all subsequent references and specifications of this shared 
variable is to move data and control information between the APL program 
and the auxiliary processor , as described for each processore To 
specify a different argument or options for a shared variable, that 
variable must be retracted and reoffered with the required initial 
valuee 


OPTIONS FOR DATA CONVERSION 


Data transmitted between the APL program and the auxiliary processors 
can be in three distinct forms: 


1e APL variables, complete with size, shape, and type informatione 
This is the most convenient and efficient form for most 
applications. The conversion option for this type of data is VAR. 


Ze Character vectorse This form is used primarily for interchange 
with other non-APL processorSse Two conversion options, APL and 
370, are described belowe 


3e Bit vectors (that is, zeros and ones) that provide the most general 
form of data transmission and interchange. The conversion option 
for this type of data is EBITe 


Characters outside of the workspace (for example, data file records, 
punched cards; and printer lines) are transferrable, as characters, to 
and from the workspace in two ways: 


1e Characters accepted by APL as input (processed as though entered 
from a keyboard) and produced by APL as output (as though for 
typing on a terminal). This option is called APLe 


2e EBCDIC codes used by the System/370. This option is called 370. 


You must have some knowledge of these two forms in order to transmit 
character data to and from external mediae Some general information 


follows, with details in “Appendix AS Auxiliary Processor Conversion 
Oo ti e" % ot 
ptions Ve y 

The APL script conversion option (APL) produces characters in the 


workspace as though the input data were entered from the keyboard; 
output data is created as though the characters in the workspace were 
typed at the terminal. For example, the character "A" in the workspace 
is converted to an "A", and the character "A" in the workspace is 
converted to the three characters: "A", "backspace", and " ", 
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The System/370 EBCDIC conversion option (370) provides a direct 
mapping between some APL characters and some EBCDIC characterse For 
example, the character "A" in APL converts to the "A", and the APL 
character "A" converts to "al. 


INPUT/OUTPUT PROCESSING 


Intr oduction 


The APL/CMS system includes two auxiliary processors that provide file 
input and output capabilitiese AP110, CMS DISK I/O, supports the CMS 
file system which allows both sequential and random accessinge AP110 
creates files with fixed or variable length unblocked recordse Random 
access of variable length records is inefficient compared to random 
access of fixed length recordse AP110 processes blocked or unblocked 
fixed Length records and unblocked variable Length recordse 


AP111, FILEDEF I/O, may be used for sequential access to CMS disk 
files and other types of devices such as magnetic tape, card readers, 
line printers, and terminals. This device independence is achieved by 
using the OS simulation facilities in CMSe The AP1i11 user must issue an 
appropriate FILEDEF command to CMS (using AP100) before the specified 
data set can be openede AP111 supports QSAM_ so that blocked or 
unblocked and fixed oor variable length records can be _ sequentially 
processede 


CMS disk files with fixed length records can be processed by either 
processor regardless of blocking. Both 1/0 processors open files for 
reading and writing although switching between read and write is 
time-consuminge 


Record Variables 


An APL variable used to transmit data records is called a record 
variablee Except for the initial reference after properly specifying an 
initial value, all references of the record variable yield records from 
the file being processede ALL specifications into the record variable 
cause records to be written into the file. The previous example used s 
as a record variablee 


Control Variables 


An APL variable used to control or monitor data transmission is called a 


control variable. It is paired with the most recently offered, but 
unpaired, record variable specifying the same file or ddnamee A control 
variable may be required to query certain status informatione For 


AP110, it is required to achieve indexed selection of records from the 
file. Except for the first reference after a proper initial value has 
been specified, the reference of a control variable returns a scalar 
(AP111) or vector (AP110) whose first element indicates the status of 
the previous specification or reference of its paired record variablee 
A zero indicates successful completione For return codes and status 
indicators, see "Appendix B: Auxiliary Processor Return Codese" 
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Record Pointers 


AP110 maintains a read pointer anda write pointer that indicate the 
position of the record to be processed by a reference or specification 
of the record variablee The value of the control variable is the status 
indicator followed by the read and write pointerse AP110 initializes 
these record pointers to 1 and Ntl, where N is the number of records in 
the file, when the file is openede The initial reference of the record 
variable returns a zero followed by these pointerse 


AP110 increments the read or write pointer by one after each 
successful read or write of the file. Record pointers can be reset by 
the user at any time by specifying an integer into the control variable. 
A scalar sets the read pointer; a two-element vector sets both pointerse 
An integer of less than one does not change the pointer. 


Continuing our previous example: 


Fe"EXAMPLE SCRIPT (370! 
110 (QSVO'F* 


2 
F 
013 
AcF 
Fey 
FeZ 
BF 


Now A and B contain the first two records from EXAMPLE SCRIPTe Records 
3 and 4 contain the variables Y and Ze 


AP111 processes files sequentially and does not support record 
pointerse The FILEDEF command, as an option, sets both read and write 
pointers to the top of a file (the default) or to the bottom of a file 
(DISP MOD). This setting of the record pointers is in effect every time 
a file is opened for read, write, or switching between read and writee 
AP111 does not explicitly alter the position of a file (magnetic tape, 
for example) when the record variable is retractede 


End File and Error Conditions 


Ce ee ee 


Whenever you reference a record variable and an end of file is read, the 
I/O processor assigns a null vector to the variablee This is also done 
if a read error occurSe These cases can be differentiated by inspecting 
the return code available via a control variable. Notice that null 
variables can be written only with the VAR optione 


Space Used by Auxiliary Processors 


INPUT/OUTPUT BUFFERS: AP110 and APi111 need virtual storage space for 
input/output bufferse This space is located outside the workspace in an 
area whose size is fixed immediately after APL is invokede The standard 
size is 8192 bytes. If the auxiliary processors are used to transmit 
long records or to access many files simultaneously, they may fail to 
find buffer space and will post an error in the control variablee 
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The size of the buffer space can be set by supplying an argument when 


( APL is invoked, thus: 


ipl apl parm x 


Se ge’ ae 
ipl cms 
apl x 

wheres 

x is the number of bytes (for example, 4096) or the number of 


kilobytes (for example, 12K) or the number of megabytes (for 
example, 2M). 


parm is a necessary part of the IPL commande 


The amount of space allocated is that requested, rounded up to the next 
page boundarye If the space is not available, a )OFF HOLD is issuede 


~ 


PROGRAM STORAGE: Many CMS commands require some program storage space in 
which to operate. The size of this area varies greatly among commandse 
No such space is required for CP commandse 


AP100 is used to invoke CP and CMS commandse If the APL/CMS system, 
as distributed, is invoked by an IPL command, then about 57,000 bytes of 
program storage are available for CMS commands called by AP100- In 
general, commands which require more program storage than is available 
will fail because the CMS storage management system should not allocate 

storage used by APL/CMS to the command; no harm should befall the 
C APL/CMS systeme 


This is not the case if APL/CMS has been invoked as a command under 
CMSe The CMS storage management system will allocate space used by 
APL/CMS to any command which needs ite This means that any CMS command 
invoked via AP100 needing program storage space will cause an abrupt 
termination of APL/CMSe CMS commands available in the subset mode do 
not require program memorye An expert should be consulted if you wish 
to explore this area. Details are supplied in the APL/CMS Installation 
Manuale 
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AP100-—THE COMMAND PROCESSOR 


Description 
vA 

The operating environment available to the user of APL/CMS includes the 
environments of CMS and CPe Commands can be processed by CMS and CP to 
dynamically change the characteristics of these two environments. 
Character vectors, or one-element arrays, when specified into the shared 
variable, are immediately p by the selected environmente Notice 
that the CMS environment includes a command, CP, that passes the rest of 
the arguments to CPe Subsequent references of the shared variable yield 
the return code set by CP or CMSe For details on return codes, see 
"Appendix B: Auxiliary Processor Return Codes". CP and CMS commands are 
described in the VM/370: Command Language Guide for General Userse 


The commands destined for CMS are broken into "tokense"™ A token is a 
parenthesis or a series of nonblank characters. Only the first eight 
characters of each token are usede For both CP and CMS, all characters 
are converted via the 370 option immediately prior to transmission (see 
"Appendix A: Auxiliary Processor Conversion Options"). 


Warning: Some commands may cause abrupt failure of APL/CMS and loss of 
the active workspace; refer to "Space Used by Auxiliary Processors", 


The CP command to define the size of virtual machine storage or tq IPL. 


is an example of a disasterous command under all circumstances. 


Ar gument 


env 
specifies the command environment and defaults to CMS. 


Example: 


The function below requests multiple copies of any printed output. 


VY COPIES N3X 

{1] X-'cpt 

[2] 100 OSVo‘*x* 

(3] X+'SPOOL PRT COPY ',®N 
Vv 
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AP10 1--THE STACK INPUT PROCESSOR / 
Initial Value 


stk ( cvt ord 
CMS 370 END 


APL BEG 
LIFO 
FIFO 
stk 
APL 
Description 


Character vectors can be stored for subsequent input at the first 
opportunity to CMS and APL/CMS.e. Two areas are available. The first, in 
stor age and weed by CMS and APL, is called the CMS input stack; the 
second, a Wisk file used only by APL, is called the APL input stack. 
The CMS stack is efficient to use but limited by available storage; the 
APL stack is limited only by disk storagee Only character vectors (or 
one-element arrays) can be stored by this processore A reference of the 
shared variable obtains the return code set by the Last specification; 
zero indicates successe For other return codes, see “Appendix 5B: 
Auxiliary Processor Return Codes." 


When CMS or APL/CMS issues a request for keyboard input, a value from 
the beginning of the stack is Used BRD NS ne acated from the 
user e This entry is made as though the user hbackspaces to the left 
margin, strikes the attention, and enters the valuee The CMS stack has 
priority over the APL stacke If the user generates an APL interrupt or 


if a character error is detected by APL/CMS when using stacked input, 
both input stack areas are flushed and the keyboard unlocks for inpute 


Warning: Certain values such as HT and RT cause immediate action by CMS 
(and are not actually stacked) when placed in the CMS) stacke Refer to 
the section on "Immediate Commands" in the VN/370: Command Language 
Guide for General Users. 


Argument and Options 


stk 
specifies the input stack to be usede The default is CMS. 


cvt 
is the standard option for character translation and defaults to 370-6 
This option may be used only with the CMS stacke The APL stack is 
maintained in an internal code which requires no converSsione 


ord 
indicates whether the processor places data at the beginning of the 
stack (BEG or LIFO) or at the end {END or FIFO). The default is ENDe 
Entries into the APL stack always use the END optione 


Section 6: APL/CMS Auxiliary Processors 53 


YE on 


I 


Example: 


This function will save the active workspace and returne The method 
used is to place a )SAVE CONTINUE command at the beginning of the CMS 
stacke The CMS stack has priority over the APL stack and the BEG option 
will place the command in front of anything already in that stacke 
Execution is suspended by setting the stop vector for a stop on 
statement LABEL. The stack entry is read at this point which saves the 
work spacee The stack is read again whereupon the branch causes 
execution to be resumede The special CMS immediate commands, HT and RT, 
are used to prevent the normal terminal outpute 


V CHECKPOINT;:S 
C1] S«'CMS (APL BEG* a USE CMS STACK, LAST IN, FIRST OUT 
[2] S<101 CSVO'S* a SHARE S AND IGNORE RESULT 
(3] S<-*HT' a HALT TERMINAL OUTPUT 
[4] S+'*+LABEL* qg THIS WILL RESUME EXECUTION 
(5] S*+")SAVE CONTINUE a FIRST OUT OF STACK 
[6] SACHECKPOINT<“LABEL a SET STOP VECTOR 
(7] LABEL:S<*RT* @ RESUME TYPING WHEN RESTARTED 
V 
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APil O--THE CMS DISK I/O PROCESSOR 


ee SEE 


f Initial Value 


nam ( cvt fmt 
VAR FIX 
APL 
370 
BIT 


nam ( typ 
CTL 


Description 


This processor provides sequential and random access to disk files under 
control of the CMS file systeme The operation of this processor is 
described in the section on input/output file processinge The CMS disk 
file system is described in the VM/370: Command Language Guide for 
General Userse 


Argument and Options 


nam 
Cc specifies the name of the CMS disk file to be accessede It has one of 
the forms: 


filename 
filename filetype 
filename filetype filemode 


The default filemode is Ale The default filetype is VMAPL\ F, where c 
is the first character of the conversion method usede 


cvt 
specifies the standard option for conversion which defaults to VAR 
except when the user gives a filetype of V In this case, the 
default will be the cvt option with matching rst ltettere For 
example, if the user gives VMAPL3F as the filetype,} then the default 
conversion is 370- 


Note: AlLL combinations of filetype and conversion can be explicitly 
* specifiede 


fmt 
is ignored except when a new file is createde This is a variable 
length file unless FIX is specifiede In this case, the file is fixed 
with a record length set to the length of the first record written 
into the file. Each subsequent record must have this Same length or 
an error is reported (in the control variable). 


typ 
establishes a control variable for the file, if an unpaired record 
variable already exists for the same filee The cvt and fmt options 
are ignored if the CTL option is presente 
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APil 1--THE FILEDEF I/O PROCESSOR 


Initial Value 


ddn ( cvt 
VAR 
APL 
370 
BIT 


ddn ( typ 
CTL 


Description 


This processor provides sequential access, via QSAM, to any device 
supported by VM/370- The device and its characteristics are specified 
by use of the CMS command, FILEDEF. The operation of this processor is 
described in the section on input/output file processinge The FILEDEF 
comuand is described in the VM/370: Command Language Guide for General 
UsersSe 


Argument and Options 


ddn 
specifies the ddname to be accessede It must be the ddname defined by 
a FILEDEF command that the APL user has already issued to CMS. 


cvt 
specifies the standard option for conversion and generally defaults to 
VARe If the FILEDEF specifies a CMS disk file, the default conversion 
option is determined in the same way as with API110. 


typ 
establishes a control variable for the file, if an unpaired record 
variable already exists for the same ddnamee The cvt option is 


ignored for a control variablee 
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Examples for AP1 10 


Example 1 uses CMS disk files for a sequential update function. SUP is 
Ziven the name of a CWS file as an argumente It updates "name VMAPLAF 
A1l" using "name CHANGES Al" and creating "name WORKFIL Al" as a 
temporary new filee When the update is complete, SUP erases’ the old 


file and renames the new filee The files SUP processes’ contain 
personnel records that are identified by the person's'7 social security 
number as the first nine characterse The changes’ file consists of 


complete replacement records or, if the record is to be deleted, merely 
the social security number. SUP provides a return code of Q=successful 
completion, 1=update performed but no file erased or renamed; or 
2=nothing donee 


V Z<+SUP FILENAME;OLDFIL;O0LDREC;O0LDSEQ;CNGFIL; 
CNGREC;CNGSEQ;NEWFIL3NUMS ;CHUS ;[]IO 
(1] Z-2 
{2] OLDFIL“FILENAME,* VMAPLAF* 
(3] CNGFIL<FILENAME,* CHANGES (APL* 
[4] NEWFIL@-FILENAME,* WORKFIL (APL* 
(S5] 110 [SVO'OLDFIL* 
[6] 110 DSVO'CNGFIL* 
(7) 110 [SVO'"NEWFIL* 
[8] ~(9#pOLDFIL,CNGFIL,NEWFIL) /Gj10<-0 
[9] CNGREC<9 t{NUMS<-'0123456789! 
[10] --STRT 
{11] USEO:NEWFIL-OLDREC 
{12] OLDSEQ<-101LNUMSt9tOLDREC-OLDFIL 
(13] LOOP:~(OLDSEQ<CNGSEQ)/USEO 
[14] -(OLDSEQ>CNGSEQ) /USEC 
[15] -(0=pOLDREC,CNGREC )/ENDF 
[16] STRT:OLDSEQ<-101LNUMS.t SfOLDREC-OLDFIL 
[17] USEC:~(9=pCNGREC)/DLET 
(18) NEWFIL<-CNGREC 
[19] DLET:CNGSEQ<101NUMS t 9tCNGREC*<CNGFIL 
{20}  -LOOP 
{21] ENDF:DSVR 3 6p"OLDFILCNGFILNEWFIL‘* 
[22] 100 LSVO'tCcCMS* 
{23] ~(Z+CMS)/0 
{(24] CMS<"ERASE '*,FILENAME,* VMAPLAF‘* 
(25] CMS*<"*RENAME ',FILENAME,* WORKFIL Al = VMAPLAF =* 
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Example 2 illustrates the CMS disk file random accesse The FIND 
function is given a personnel file, such as that updated by SUP, and a 
social security numbere It is to find the location of the corresponding 
record (if any) in the filee In particular, if it returns an integer 
(n), then the nth record has the matching social security number. If it 
returns a real (ne5), then the given social security number is not in 
the file. If it were, it would occur between records n and nti (0 <= n 
<= number of records in the file)e The only other possible return value 
is "SHARE ERROR" which indicates that the FIND command could not 
establish the necessary shares with AP110. 


Example 2: 


V Z*+FILE FIND SS$REC3NUM3[JI0;BOT;3TOP;ID 
C1] REC*+FILE,* VMAPLAF* 
{2] NUM*+REC,*(CTL* 
[3] 110 CSVO'REC?* 
[4] 110 [sSvo'nuMm! 
(5] ~(NUMVITREC)/FAIL 
[6] Z<-2*[2@ 1TNUM 
{7] (j10-BOT+0 
(8] DROP:TOP<+Z 
(9] LOOP: Z-NUM<-0.25xBOT+TOP 
[10] ~-(Z24fZ)/0 
(11] IrD«101'0123456789' c9tfREC 
[12] -+(SS<ID)/DROP 
(13]) BoT-+zZ 
(14] -LOOPxSS>ID 
[15] -0 
[16] FAIL: Z<*SHARE ERROR* 
Vv 


Example 3 assumes that a function is suspended with a domain error. 
The function was using AP110 to sequentially read and process INPUT DATA 
and the domain error occurred because the Latest record read had 
alphabetic characters where a numeric field was supposed to bee To 
Locate where in the file the bad record occurs, use the following 
sequence, in O-origin, to determine its record number: 


Example 3: 


X«*INPUT DATA ( CTL* 
110 (.SVvo'x' 


BAD<- 1+X[1] 
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Examples for AP111 


Example 4 uses the unit record equipment for a card-to-printer function. 
The program, CTOP, expects as input a series of decks stacked in the 
card reader as a_ single filee These cards contain a sequence field in 
the Last four columns and a deck identification code in the preceding 
four columnse The cards are to be listed on the printer and each deck 
should start on a fresh pagee 


Example 4: 


V CTOP3;CMS3;SVPRINT;SVREAD;1ID3CARD 
[1] 100 [SVO'CMS* 
[2] CMS«+"FILEDEF CTOPOUT PRINTER (RECFM VA BLKSIZE 137! 
[3] CMS+*FILEDEF CTOPIN READER (RECFM F BLKSIZE 80Q! 
[4] SVPRINT*+*CTOPOUT ( 370! 
[5] SVREAD='CTOPIN ( 370! 
[6] 111 (SVO 2 7 p"SVPRINTSVREAD * 
(7] ~(SVPRINTVSVREAD)/0O 
[8] IDet~t 
[9] LOOP:~(0=pCARD<SVREAD) /0 
[10] -+(v/ID#4t” 8tCARD)/SKIP 
[11] SVPRINT<* *,CARD 
[12] -LOOP 
[13] SKIP:ID<4t S&TCARD 
[14] SVPRINT+'1',CARD 
(15] -LOOP 
V 


Cc 


The function shown in Example 4 would take care of many 
card-to-printer taskse However , because it uses characters, the input 
is converted from 370 to APL and the output is converted back from APL 
to 370. Thus, in the example, CTOP will not print cent symbols (CZ)e. 
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Example 5 is a card-to-card function that has the same conversion 
problem. In fact, its conversion problem is even more acute since CTOC 
might be used to reproduce text deckse CTOC solves the problem by using 
BIT conversione As input, CTOC expects a series of decks stacked in the 
card reader as separate filese The first card of each deck has an 
identification code in cotumns one to four. The remainder of the deck 
is to be reproduced except for the Last eight columns of each carde The 
Last eight output columns are to contain the deck identification code 
and a sequence number. 


V CTOC FILES;(1I0;BITS3;PUN;RDR;3;NUM;1ID;CARD;SEQ3F 
[1] Oro-o0 
(2] BITS<(10 491),Q2 2 2 27210 
[3] 100 DSVO'F® 
[4] Fe"FILEDEF FILEO PUNCH(RECFM F BLKSIZE 80° 
[5] Fe"*FILEDEF FILEI READER(RECFM F BLKSIZE 80* 
[6] BEGF:PUN<-'FILEO(BIT® 
[7] RDR-*FILEI(BIT* 
[8] 111 0OSVO 2 3p*PUNRDR' 
[9] + (PUNY RDR) /NUM<-O 
[10] ID<32tRDR 
[11] LOOP:~(0=pCARD<RDR) /ENDF 
[12] SEQ+,BITS([10 10 10 1LOTNUM<-NUM+103 J 
[13] PUN-( 64SCARD),ID,SEQ 
[14] -LOOP 
[15] ENDF:(CSVR*PUN* 
[16] [SVR*RDR* 
17] -+(0O<FILES<-FILES—1) /BEGF 
Vv 


MULTIPLE ACCESSING 


The preceding examples have been in terms of single variables: 
1e How do you read a file? 
2e How do you send commands to CP via a shared variable? 


Let us consider the implications of the sharing of multiple variables 
with an auxiliary processore 


The auxiliary processors, COMMAND and STACK INPUT, share multiple 
variables with different or identical destinationse Consider’ the 
following example: 


Example 6: 


A+B<-C+' CP! 
100 OSVO 3 1p'aABc! 
222 
A+"*INCORRECT REQUEST * 
B<"SPOOL QOE OFF® 
C-'o¢o Ft 
FILES! NO RDRy NO PRT, NO PUN 
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The variables A, By, and C in Example 6 are independent, yet they have 
some thing in commone Not one of them can affect any of the otherse If 
you reference A, you obtain the return code that indicates an invalid CP 
commande Using B and C to execute successful commands has not changed 
this return codee In common, they share the same destination, so their 
assignments are “merged"; they are all sent to CPe For COMMMAND and 
STACK INPUT this is not significant, but for other auxiliary processors 
it iSe 


The I/O auxiliary processors accept multiple record variables; thus, 
they allow simultaneous access to several filese Example 1 for AP110 is 
an update function that reads both the old file and the changes filee 
The I/O auxiliary processors also accept multiple record variables with 
identical data sources or destinationse Access to the same file with 
multiple variables can be very useful, although it may be confusinge 
The following examples explore this situation. 


If A and B are both shared variables using the card reader as their 
source and you reference A, B, and finally A again, then the second 
reference of A does not read the second carde Rather, its value is for 
the third card since the second card was read by the reference to Be 
Independent variables causing a merged effect can allow, for example, 
any APL function to print information without knowing whether or not 
some higher calling function is also printinge 


Now assume that A and 8B are both shared with the APL/CMS' DISK I/O 
processor and that both had the initial value "“"SOMEFILE". If one 
references A, then B, and finally A again, then the second reference of 
A reads the second recorde The first B reference and the first A 
reference obtain the first recorde These A and bB accesses are 
inde pendente 


Assume that A and B are both shared with the FILEDEF I/O processor 
and that both are using the same CMS disk filee If they are using 
different ddnames (for example, different FILEDEF commands were issued 
each specifying the same CMS disk file) then A and 3B read records 
independentlye The APL user should not attempt multiple access while 
the file is being created by AP111. 


The I/O processors also allow multiple control variables. Because a 
control variable is accepted only if there is an unpaired record 
variable for the corresponding file, the meaning of these multiple 
control variables is clear. However, one should be aware of the method 
used for matching control variables with record variables. The control 
variable will be paired with the most recently shared unpaired record 
variable for the corresponding file (see Example 7)- 


Example 7 


V PROG;DATA;NUMB 
[1] NUMB+(DATA*!FT70 FILE*),*(CTL* 
[2] 110 (SVO'DATA* 
[3] 110 CLSVO*NUMB* 
e . 


Example 7 shows that NUMB is paired with DATA. There is no problem 
if some higher calling function is also reading FT70 FILE without a 
control variablee Now consider the data in Example 8&-e 
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Example 8: 


V Fl COMPAR F23R1;3113R23;12 
[1] T1i-(R1-F1),"(CTL* 
[2] IT2-(R2-F2),°(CTL* 
[3] 110 CSvo'fRi' 
[4] 110 CSVO!tR2* 
[S] 110 DSsvo'ri' 
[6] 110 CSsvo'r2? 


In most cases, the COMPAR function will worke However, if the fileid 
in F2 is the same as that in Fl, then I1 is paired with R2 and 12 is 
paired with Rie To avoid malfunction, statements 4 and 5 _ should be 
reversede 


OTHER AUXILIARY PROCESSOR DETAILS 


ALL initial values are converted using the 370 option before they are 
inspected, thus allowing you to refer to filenames that include 370 
characters such as-~ the $ (see "Appendix A: Auxiliary Processor 
Conversion Options" for details). 


Options can occur in any order. If conflicting options occur (for 
example, 370 and BIT), then the option selected depends on the auxiliary 
processore Blanks can be used freely: the initial value can use or 
omit Leading or trailing blankse The ‘options follow! Left parenthesis 
can occur with or without a preceeding or following blanke Any blank 
can be replaced by multiple blanks. 


In some caseS, records must be changed in lengthe When made longer, 
the process is known as padding; the elements added as a result are 
called pad characterse The APL/CMS auxiliary processors pad records on 
occasione When this is necessary, character records are padded with 
blanks and bit records are padded with zerose Records using VAR 
conversion are never paddede BIT records may require padding, even if 
they are of variable format, due to hardware Limitationse On the IBM 
System/370, for example, all BIT records must have a length that is some 
multiple of eighte There is no case in which character records must be 
paddede 


The APL/CMS system includes a workspace called 1 £4APFNS. This 
work space contains functions that facilitate usage of the auxiliary 
processorSe For example, one function issues appropriate FILEDEF 
commands and offers shared variables to APLl1I1e For details, load this 
workspace and type DESCRIBEe 
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APPENDIX A: AUXILIARY PROCESSOR CONVERSION OPTIONS 


The CMS auxiliary processors’ provide conversion to and from the 
workspaces The details of the conversion are given belowe 


THE 370 CONVERSION OPTION 


Many characters are common to both the APL and EBCDIC character setse 
The conversion preserves most of these characterSe These characters are 
the same in both sets: 


A THROUGH Z Q THROUGH 9 SPACE 
< = > + _ * 

' ; ; , vr 8 

( )») N [| JZ 


These characters have different graphics: 
APL: A THROUGH Z ~ a “~~ a@ # # A 8 @ 
370: a THROUGH z - & " oa % $ # -0O +0 


(Note that +0 and -0 are the EBCDIC left and right braces.) For 
example, "A" is converted to "a" on output and "a" is converted to "A" 
on inpute 


The following conversion occurs only when going from APL to 370-¢ 
APL: - 
370: = _ 
The terminal control characters backspace, horizontal tabulate, idle, 
Line feed, and new line, are translated one for onee ALL other EBCDIC 


codes are converted to "o" when translated to APL. 


ALL other APL characters are converted to a space when going to 370-6 
Those with graphics are: 


Ir i T a Ld 

Cc JF t X& # 
Oo Q 8 o 

Cc 2 nN U a 

€ t Pp WwW 

v ns we < 2 x 
-~ tf t b& F 
EEF Ov * A 
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THE APL CONVERSION OPTION 


Figure 1 shows the EBCDIC code as decimal integers, with corresponding 
APL graphicse This table is indicative of the conversion done by VM/370 
when the APL type element is specifiede The full APL character set is 
formed by use of the backspace (BS) terminal control code in conjunction 


with the other characterse For example, “A"™ is converted to "A", 
backspace, " "™ on output and " ", backspace, "A" is converted to A on 
inpute 


Output to and input from files are both converted by the APL/CMS 
system as if going to or coming from the normal APL terminal. For 
input, all characters not in the APL/CMS input character set below, such 
as invalid codes’ and invalid compound characters (that is, those 
producing a character error on keyboard entry) are converted to one 
unique internal APL code with no graphic which CP normally prints as a 
spacee 


For output, all characters other than the APL/CMS output character 
set below, are converted to the EBCDIC code Oe 


The Input Character Set of APL/CMS: 


The input character set comprises the following: 


ABCDEFGHI JKLMNOPQRSTUVWXYZA 
ABCDEFGHI JKLMNOPQRSTUVWXYZA 
0123456789()CIILX\| /4_a1zIT® 
QEL NW —tEXXVAMAC <=> >¢--T LAY 
SPHCOCCR HU CIVN~(MMR'b e335? 


and SPACEe 


The Output Character Set of APL/CMS: 


Cee aan ad 


The output character set comprises the input character set, above, plus 
the terminal control characters: 


BS - backspace 

HT — horizontal tabulate 
IL — idle 

LF —- line feed 

NL — new line 


64 APL/CMS User's Manual 


y x Fpueddy 


SUOT}d9 UOTStIeAUOD JoSsSSse<00Jg AJCELEXNY 


s9 


370 8 8=APL 270 APL 370 APL 370 
0 32 64 SPACE 96 
1 33 65 e 97 
2 34 66 = 98 
3 35 67 < 99 
4 36 68 > 100 
5 37 69 + 101 
6 38 70 v 102 
7 39 71 A 103 
8 40 72 4 104 
9 41 73 x 105 

10 42 74 106 
11 43 75 “ 107 
12 44 716 < 108 
13 45 77 ( 109 
14 46 78 + 110 
15 47 79 | 111 
16 48 80 112 
17 49 81 w 113 
18 50 82 € 114 
19 S1 83 p 115 
20 52 84 ~ 116 
21 53 85 t 117 
22 (BS) 54 86 4 118 
23 55 87 rt 119 
24 56 88 fe) 120 
25 57 89 _ 121 
26 58 90 122 
27 S59 91 123 
28 60 92 x 124 
29 61 93 ) 125 
30 62 94 ; 126 
31 63 95 127 


> 
a) 
me 


~meLlopdamwmmespni | 


7ZArFecwdvuNneadvi 


150 
151 
152 
153 
154 
155 
156 
157 
158 
159 


APL 


wm eQnimySaQ wD a 


VPOUVSASRHAG 


> 
~ 
Ye 


NN MEH QCHA 


OoOMNAUAONRO 


Figure 1e EBCDIC Codes (Integers) to APL/CMS Characters (Graphics) via APL Conversion Option 


APPENDIX B: AUXILIARY PROCESSOR RETURN CODES 


Section 6 indicates that the APL/CMS auxiliary processors provide return 
codes describing the results of a previous operatione With the COMMAND 
and STACK INPUT processors, you reference the shared variable to obtain 
the return codee The I/O processors provide return codes via a 
control-type shared variablee 


The return codes from the COMMAND processor are generally the return 
~ code from the command previously assigned to the shared variablee Since 
you can issue any number of commands, including commands written by 
yourself, it is impossible to list all possible COMMAND return codes. A 
few errors are intercepted and result in return codes that have been 
ba generated by the auxiliary processor itselfe If an I/O problem causes 
the CMS OS simulation routines to take a SYNAD exit, AP111 generates a 
decimal return code which, when converted to hexadecimal, has’ the 
four-byte representation NOQ,N1,A0,Al- The first two values are the two 
sense bytes and the latter two values are the two status bytese All 
other return codes are generated by the auxiliary processors or result 
from some known CMS macro instructione All specific return codes are 
given hbelowe 


Numerical Listing 


3 Unknown CMS commande 


‘ QO No error existse 


1 Attempt to read a nonexistent file or unknown CP commande 
3 Permanent read errore 

5 Attempt to read a file with too many records for CMS.f 

6 Attempt to write too many records in a CMS file.f 


7 Attempt to read a record with invalid format or attempt to write 
past the end of a variable-length filee You can always write at 
the end of file (that is, you may append a record to the file)e 
With a fixed-length file you may also write past this point and one 
or more blank records are inserted into the file; this is not 
possible with variable length filese 


8 Attempt to read a record with incorrect record length from a file 
with fixed format. 


10 Attempt to create a file when you already have the maximum allowed 
by CMS.t 


12 End-of-file read or attempt to write on a read-only diske 


13 Attempt to write ona full diske 


RD cee Se ee cee SE ce ees eee es SS 


TThe VN/370: Command Language Guide for General Users gives’ these 
Limitse 


Cc 
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14 Attempt to write on an unformatted disk. 


15 Attempt to write a record with incorrect length into a file with 
fixed format. 


17 Attempt to write a record that is too large into a variable length 
file.t 


19 Attempt to write ina file already containing as many data blocks 
as CMS will allow.t 


440 Data set cannot be opened for output. 

441 Data set cannot be opened for input. 

442 ABEND from the CMS OS simulation routines. 

443* Insufficient free storage for the CMS OS simulation routinese 


444* You assigned an invalid value to a shared variable. This cannot 
happen with VAR conversione The value is invalid because it is 
null or is an array, has the wrong type, or is too bige An error 
occurs, for example, if BIT conversion is being used and the value 
is 12 3- An error occurs’) with the APL and 370 conversion options 
if the value to be converted is numeric instead of charactere 


445 You referenced a shared variable that is reading a file using VAR 
conversion and the resulting record is not a valid APL variable in 
internal forme For example, it may not have a descriptor, the 
element count may not equal the times reduction of the shape 
vector, etce 


TThe VM/370: Command Language Guide for General Users gives’ these 
Limitse 

*If these errors occur, you can restart APL/CMS with more free storage 
and try againe For details, see Section 6, heading "Space Used by 
Auxiliary Processorse" \ 


\ 
{ 
1 
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Return Codes by Processor 


This information is included for the experienced VM/370 user of 
APL/CMS. Each auxiliary processor is listed with an indication of the 
origin of its return codese Each processor can, in addition, return the 
44x codese 


AP100 


CP: Result Register after Diagnose. 
CMS: Register 15 after SVC 202. 


AP101 

APL: Register 15 after FSWRITE 

CMS: Register 15 after SVC 202 for the ATTIN functione 
AP110 


Register 15 after FSREAD or FSWRITE 


AP111 


Sense/Status Information on SYNAD exite 
Errors 12, 15, 17 
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@ execute 24 
® format 26 
\ scan 23 


OAI 33 
Ocr 30 
Oct 33 
CpL 32 
Ex 31 
OFx 30 
O10 33 
CiLc 33 
OLx 323 
ONC 32 
ONL 31 
OPP 33 
pw 33 
ORL 33 
OSsvce 37 
Osvo 35,37 
Csvo 38 
Cisvr 36 
OTs 33 
Ort 33 
QuL 33 
wa 33 


JDIGITS 33 
JERASE 21 
yMSG 20 
)MSGN 20 
}OPR 20 
}OPRN 20 
JORIGIN 33 
)SAVE 41 
)STACK 15,21 
)SYMBOLS 21 
)WSID 21 


A 
abnormal disconnect 11 
ACCESS, command 39 
access 
control 37 
multiple 60 
random 40,49,55,58 
sequential 49,55,56 
accounting information 33 
address of device 39 
A-disk 10,41 
ALLOC, option of LISTFILE 40 
AP (auxiliary processor) 
AP 62,67 
control variables 48 
conversions options 48 
initial value for 47 
offer protocot 47 


INDEX 


options 62 
record variables 48 
use of 36 
APFNS, in LIB 1 22,62 
APL 
command (see ')! entries) 
commands 8 
conversion of APL\360 ws 45 
environment 8 
in TERM command 42 
Library 41 
workspace 9 
APLSV 
compatibility with 37 
conversion of APLSV ws’ 45 
APLWS files 46 
AP100 £52 
AP101 53 
AP110 48,55 
AP111 48,56 
atomic vector 34 
attention 12,16,32 
double 12,32 
auxiliary processor (see AP) 


B 

backspace 13,56 

bare output 13 

BIT conversion 55 

block 40 

blocking messages 20 
buffers, input-output 50 


Cc 
canonical representation 30 
carriage return 12,12,13 
character, errors 12 
character set 
input 63 
output 63 
checkpoint a workspace 22 
classification, name 32 
CMS 
commands 8 
commands in APL environment 52 
disk I/O processor 55 
environment 8 


files 39 
stack 53 
codes 


error 67 
return 67 
command 
ACCESS 39 
APL (see ‘*)*' entries) 
CMS commands in APL environment 52 
COPYFILE 43 


Index 


71 


CP in APL environment 52 

DISK DUNP 45 

DISK LOAD 45 

during function definition 193 
ERASE 41 

FILEDEF 42,49,56,62 

LINK 39 

LISTFILE 40 

MOVEF ILE 43 


PRINT 42 
PUNCH 42 
QUERY 41 


QUERY TIME 493 

READCARD 42 

S POOL 44 

TAPE SCAN 44 

TERM APL 42 

TYPE 42 
COMMAND COMPLETE 11 
commands 

APL 8 

CMS 8 

CP 8 
comments in apl functions 17 
communication, Line loss 11,22 
comparison tolerance 33 
compress 20 
CONTINUE workspace 22 
control 

of access' 37 

variables used with APs 48 
control variable 67 
conversion 

character to numeric 24 

in AP110 = 55 

of APLSV workspaces 45 

of APL\360 workspaces 45 

option in AP 48 

option in APs 63 
COPYFILE command 43 
coupling, degree of 35 


CP 
(and keyboard unlocks) 11,12 
commands 8 
commands in APL environment 52 
ENTERED 11 
environment 8,12 
stack 53 

D 


damage, SI DAMAGE 15 
D-disk 10 
definition, function 13 
DEFN ERROR 13,17 
degree of coupling 35 
delay 32 
deletion of a line 16 
DEPTH error 14 
device, address 39 
DEVICE, ERROR 11 
DIGITS 33 
directory 

VM/370 39 

VM/370 user 6 
disconnect, abnormal 11 
disconnected, running APL/CMS 22 
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disk 
A 10 
D 10 
files 55 
G 10 
virtual 6,10 
z 19 


DISK DUMP command 45 
DISK LOAD command 45 
DISK NOT AVAILABLE message 46 
distinguished names 29 
divide by zero 15 
domino 18 
double attention 12 
drop 20 
dyadic 

access control 37 

format 26 

offer to share 35 
dynamic erasure 31 


E 
EBCDIC (see AP conversion option) 
edit 
APL function 13 
CMS editor 42 
limitation on width 16 
line deletion 16 
enclosed specification 20 
encode 18 
end file 50 
environment 52 


APL 8 
CMS 8 
CP 8,12 


erase 31 
ERASE command 41 
error 
abrupt termination 51 
character 12 
codes used by APs 67 
DEFN 13,17 
DEPTH 14 
DEVICE ti11 
in execute function 24 
in locked function 15 
in reading/writing files 50 
messages 10 
RANGE 15 
STACK FULL 14 
typing CMS commands 9 
WS NAME TOO LONG 21 
escape, from literal input 13 
execute 24 
expand 20 
expression, latent 33,34 
expunge 31 
EXT 12 


F 

file, listing names of 40 
file name 39 

file processing 55 


FILEDEF 62 
command 42,49 
FILEDEF commmand 56 
FILEDEF I/O processor (see AP111) 
filemode 39 
files, 11 
filetype 39 
VMAPLAF 55 
VMAPLBF 55 
VMAPLUT 41 
VMAPLVF 55 
VMAPLWS 39 
VMAPL3OF 55 
fixed length records 39,55 
format 
dyadic 26 
monadic 26 
function 
definition 13 
establishment 30 
functions, local 31 


G 
G-disk 10,41 


H 
heterogeneous output 14 
horizontal tabulate 13,64 


I 
I-beam functions 393 
idle control character 13,64 
immediate modification 15 
incorrect password 10 
information, accounting 33 
initial program load 7 
input 

character set 63 

Line length 12 
input buffers 50 
input-output conversion 63 
INTERFACE QUOTA EXHAUSTED 35 
INTERRUPT 32 
INTERRUPT: PERMANENT SV WAIT 38 
IPL 7 


L 
labels 17 
latent expression 33,34 
Length 
fixed length records 39 
variable length records 39 
LIB 1 
APFNS 22 
SPECIAL 13 
Library 10,41 
Limitation 
on edit width 16 
on workspace name 21 


line 
counter 33 
deletion in edit 16 
feed 13,64 
input 12 
loss 11 
LINK command 39 
LISTFILE command 40 
local 
functions 31 
system variables 393 
lock, set Lock on workspace 21 
locked function 15,16 
LOGOFF 8 
LOGON 6 
Loss of communication line 22 


N 
matrix divide 18 
maximum 
Line length 12 
records in CMS file 67 
virtual storage 9 
work area 9 
message 
DISK NOT AVAILABLE 46 
error 10 
ready 9 
REQUEST PLEASE 11 
WS TOO LARGE 46 
messages, blocking 20 
mode of CMS file 39 
monadic 
access control 37 
format 26 
offer to share 935 
retraction of a share 36 
transpose 17 
MOVEFILE command 43 


N 
name 
classification 32 
List function 31 
of CMS files 39 
names 
distinguished 29 
surrogate 937 
new line 64 
control character 13 
number of workspaces’ 10 


oO 
offer to share 35 
open quote 12 
ORIGIN 33,33 
OS files (see FILEDEF command) 
output 
bare 193 
character set 63 
heterogeneous 14 
output buffers 50 
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P 
parentheses 
password 6 

incorrect 10 
PERMANENT SV WAIT 38 
pointer 

read 48 

record 48 

write 48 
print 

width 13 

width Limitation 16 
PRINT command 42 


14. 14 


printing 
precision 33 
width 33 


program storage, use of 51 
PUNCH command 42 


Q 
QSAM file access method 56 
QUADTC 34 
QUADTC workspace 13 
QUERY 
command 41 
DISK 41 
NAMES 41 
STORAGE 9 
TIME 43 


R 
random access 40,49,55,58 
random link 933 
RANGE ERROR 15 
READCARD command 42 
read-only Library 10 
read/write tibrary 10 
ready message 9 
record 

pointer 48 

variables used with APs 48 
records 

fixed length 55 

in CMS files 939 
REQUEST PLEASE message 11 
reshape 20 
residue 17 
retraction of a share 36 


Ss 

SAVE 41 

scan 23 

Script processor 42 
sending workspaces to other users 
sequential access 49,55,56 
SETF UZZ 33 

SETLINK 33 

share, offer to 35 

SHARE, RETRACTION OF 36 
Shared variables 33,34 
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46 


SI 
DAMAGE 21 
DAMAGE ENCOUNTERED 16,21 
DAMAGED 15 
size 
of APL/CMS 9 
virtual storage 9 
workspace 9 
space, use of program storage space 
SPECIAL (workspace in LIB 1) 13 
specification 
enclosed 20 
subscripted 20 
SPOOL command 44 
STACK 21 
stack 21 
CMS 53 
command 15 
CP 53 
damage 15,16 
full error 14 
stop vector 16,16 
storage, query 9 
storage managment 51 
subscripted 
functions 20 
operators 20 
specification 20 
surrogate names’ 37 
SV WAIT 38 
SVP MEMORY FULL 35 
SVP SYMBOL TABLE FULL 35 
symbol table 21 
SYMBOLS 21 
system 
functions 29,29 
variables 29,33 
system variables localized 33 


T 
tabulate, horizontal 13 
take 20 


TAPE REW 44 

TAPE SCAN 44,44 

TERM APL 42 

terminal, type 33 

time 43 

time stamp 33 

trace vector 16,16 

translation during input-output 63 
transpose, monadic 17 

TYPE command 42 

type of CMS files 39 

typing error in CMS environment 9 


U 
unbalanced parentheses 12 
use of program storage 51 


51 


te 


Vv 
variable Length records 39 
variables 

control (see AP control variables) 

record (see AP record variables) 

shared 33,34 

system 33,34 
virtual 

disk 6 

storage 

maximum 9 
size 9 

virtual machine 6 
virtual storage, use of 9 
VMAPLAF, as a filetype 55 
VMAPLBF,;, as filetype 55 
VMAPLUT, as filetype 41 
VMAPLVF, as filetype 55 
VMAPLWS, as a filetype 39 
VMAPL3F, as filetype 55 
VM/370 

directory 39 

ONLINE 11 

user directory 6 


> © P P PD 


WwW 


WAIT, in PERMANENT SV WAIT 38 


width 
print 193 
printing 33 
working area 33 
workspace 9 
as a CMS file 
number of 10 


saving on magnetic tape 


41 


sending to other users 


size @Q 


WS NAME TOO LONG error 
WS TOO LARGE message 


WSID 21 


Z 
Z—disk 10 
zero, divide by 


3 


370 conversion 


15 


55 


46 


21 


43 
46 
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Trim Along This Line 
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